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INTRODUCTION 


This  is  the  second  volume  in  a two-volume  set  of  documents  describing  Zeus,  a 
time-sharing  monitor  for  the  IBM  series  360  or  370  computer.  In  Volume  1,  the  nature, 
purpose,  history,  functions,  and  design  concepts  of  Zeus  are  described;  this  document 
presents  the  program  logic  for  Zeus  subroutines  and  macros. 


ORGANIZATION  OF  THIS  DOCUMENT 

Volume  2 is  organized  in  five  Chapters,  as  follows: 

Chapter  1,  “System  Modules,”  describes  each  of  the  program  modules  in  Zeus. 
The  modules  are  grouped  according  to  functions  an'd  these  groups  are  presented  in  the 
sequence  in  which  the  functions  are  described  in  Volume  1. 

Chapter  2,  “Macros,”  describes  the  system  macros  provided  by  Zeus.  These 
macros  are  used  by  Zeus  subroutines  and  many  are  also  suitable  for  application  program 
use. 

Chapter  3,  “System  Data  Areas,”  identifies  the  structure  and  uses  of  control 
blocks  and  queue  elements  in  Zeus. 

Chapter  4,  “Utilities,”  describes  utility  programs  provided  for  the  support  of 
the  Zeus  system. 

Chapter  5,  “Procedures,”  lists  the  Job  Control  Language  (JCL)  procedures 
necessary  for  the  implementation  and  operation  of  the  Zeus  system. 

Program  listings  of  Zeus  modules  and  macros  are  available  to  the  interested  reader 
through  HumRRO  Division  No.  1 (System  Operations). 


OVERVIEW 

A brief  description  of  how  a terminal  interacts  with  Zeus,  as  illustrated  in  Figure  1, 
will  serve  to  place  the  Zeus  components  in  proper  perspective.  In  Figure  1,  assume  that 
the  Zeus  initialization  routines  have  completed  processing  and  a Terminal  Task  has  been 
created  for  each  terminal  in  the  system.  Each  Terminal  Task  has  issued  a read  to  its 
terminal  via  OS  and  a Zeus  macro.  These  functions  are  performed  by  the  TERMIO 
component  of  Message  and  Command  Processing.  After  initiating  this  operation,  the 
Terminal  Task  waits  for  terminal  input  by  entering  the  DSPTCHR  component  of  System 
Support. 

Eventually,  the  terminal  initiates  an  input.  At  this  time,  OS  notifies  the  Terminal 
Task  associated  with  this  terminal  (via  System  Support)  of  the  message  availability.  The 
Terminal  Task,  when  activated,  first  determines  if  the  message  contains  a command.  If  it 
does  not  it  is  routed  to  the  external  processor  associated  with  this  terminal. 

If  the  message  contains  a command,  the  Terminal  Task  calls  the  Command  Process- 
ing Subsystem  to  process  it.  (CMNDPRl  is  the  entry  point  to  the  Command  Processing 
Subsystem.) 


The  Command  Processing  Subsystem  interrogates  the  command  and  executes  it  as 
appropriate,  utilizing  Zeus  macros  and  System  Support  for  timer,  queue,  and  memory 
management.  Control  Blocks  are  updated  as  necessary  to  maintain  a state  vector  for  the 
terminal. 

Eventually  Command  Processing  or  the  external  processor  will  generate  a request  for 
output  and  subsequent  input  from  the  terminal,  repeating  the  preceding  operation. 

A detailed  description  of  this  process  can  be  found  in  Volume  1,  Chapter  3, 
“Message  Processing;”  Chapter  4,  “Command  Processing;”  and  Chapter  5,  “System  Sup- 
port Functions.” 

The  main  memory  requirements  for  the  major  Zeus  subsystems  components  are 
summarized  in  Figure  2.  The  reader  may  refer  to  the  program  description  in  subsequent 
chapters  of  this  volume  for  detailed  memory  requirements  for  each  Z us  module. 


Basic  Zeus  Structure 


T/P  Lines 


Auxiliary  Storage 


Computer 
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Summary,  by  Component,  of  Zeus  Main  Memory  Requirements 


Component 


Main 

Memory* 


Message  Processing 

6K 

Command 

Processing 

EDITOR 

3K 

DIRECTOR 

3K 

Status/control 

2K 

RJE 

3K 

System  Support 

8K 

Buffer  Pool  and  Transient  Routine  Dynamic  Memory 

8K 

Control  Blocks  and  Table  for  9 Active  Terminals 

2K 

OS  Dynamic  Memory  (open,  close,  appendages,  etc.) 

5K 

Total 

54K 

•K  = 1024  bytes  of  memory 

Figure  2 
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Chapter  1 

SYSTEM  MODULES 


This  Chapter  presents  salient  items  of  information  regarding  Zeus  system  modules. 
The  system  modules  descriptions  are  organized  alphabetically  within  sections,  according 
to  the  type  of  function  performed.  These  sections  are  presented  in  the  sequence  in  which 
the  functions  are  described  in  Volume  1.  The  subroutines  are  as  follows: 

Section  1:  Message  processing 
Section  2:  Command  processing 
Section  3:  System  support 
Section  4:  Initialization 


SECTION  1:  MESSAGE  PROCESSING 

The  program  modules  that  perform  message  processing  functions  are  shown  in  the 
following  list: 


Name 

Function 

CMF 

I/O  Communication  Interface  between  a proces- 
sor and  a Terminal  Task 

CRTREAD 

Request  message  from  terminal 

EMPTY 

Request  output  to  terminal 

FULL 

Process  full  output  buffer  condition 

NTPIO 

Initiate  nonteleprocessing  I/O  operation 

RESET 

Acquire  and  initialize  output  buffer 

RTERM 

Terminal  Task  to  Line  Task  interface  for  terminal 
input  operation 

RTERMl 

Initiate  terminal  input  operation 

STACK 

Format  output  buffer 

TERMIO 

Terminal  Task  foundation  module 

WTERM 

Terminal  Task  to  Line  Task  interface  for  terminal 
output  operation 

WTERMl 

Initiate  terminal  output  operation 

Zeus  message  processing  concepts  are  described  in  Volume  1,  Chapter  3.  A descrip- 
tion of  each  module  follows. 


NAME: 

FUNCTION: 

INPUT: 


OUTPUT: 

PROCESS: 


ZEUS  MACROS 
USED: 

ROUTINES 

CALLED: 

SIZE  IN 
BYTES: 

EXTERNAL 

REFERENCES: 

EXIT: 

ATTRIBUTES: 
WRITTEN  BY: 


CMF 

Read/Write  Communication  Interface  between  a processor  and 
a Terminal  Task. 

R1  ->  BTAM  Data  Event  Control  Block  (DECB) 

R13  -»■  18-word  save  ares 
R14  Return  point  address 
R15  ->  Entry  point  to  CMF 

Updated  DECB,  TCB,  and  posted  Terminal  Task. 

The  CMF  routine  is  called  by  a processor  to  initiate  a read 
or  write  operation  on  a remote  terminal.  CMF  first  inter- 
rogates the  bytes  at  offset  36  of  the  DECB  for  an  X 'FF' 
to  determine  if  a terminal  has  been  assigned  to  this  DECB. 
If  a terminal  has  been  assigned,  it  loads  the  address  of 
its  TCB  from  bytes  of  the  DECB  and  continues  to  the  next 
step.  Otherwise,  it  locates  the  Zeus  Vector  Table,  gets 
the  address  of  the  TCB  Queque  from  it,  and  scans  the 
Queue  for  an  available  TCB.  If  one  is  found,  its  address 
is  stored  in  bytes  37-39  of  the  DECB,  the  DECB  address 
is  stored  in  the  TCB,  and  the  next  step  is  initiated.  If 
a TCB  is  not  available,  the  CMF  returns  to  the  caller. 

After  the  TCB  belonging  to  this  DECB  is  known,  the  address 
of  the  message  to  be  output  or  the  buffer  to  be  used  for 
input  is  moved  from  the  DECB  to  the  TCB.  Editing  is  per- 
formed on  outgoing  messages  as  is  required  by  specific 
processors.  Finally,  an  ECB  in  the  TCB  is  posted  complete. 

#0PENP,  #CALL,  #G0T0,  #LPSW,  #C0UNT,  #CL0SEP,  #GENSECT, 
#FINDZVT 


SPIE,  STAE 


403  bytes 


ZEUSSVC,  SPIE,  STAE 
Address  in  R14 
Serially  Reusable 
Jean  Garneau 
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NAME: 


CRTREAD 


FUNCTION:  Request  input  from  terminal,  process  and,  as  appropriate, 

return  data  to  caller. 

INPUT:  R12  TCB 

R13  •+  18-word  save  area 
R14  -►  Return  point  address 
R15  -»•  Entry  point  to  CRTREAD 


PROCESS:  CRTREAD  is  called  by  any  routine  that  wants  noncommand 

input  from  the  terminal.  CRTREAD  first  checks  the  current 
terminal  output  buffer  to  determine  if  it  contains  valid 
data.  If  it  does,  an  output  operation  to  the  terminal  is 
initiated  by  calling  an  output  module,  EMPTY.  Upon  return 
from  EMPTY,  or  if  the  buffer  contained  no  data,  an  input 
message  from  the  terminal  is 'requested  via  RTERM.  Upon 
return  from  RTERM,  CRTREAD  waits  on  an  ECB  in  its  TCB  for 
completion  of  the  scheduled  input  operation.  When  the 
terminal  responds,  the  message  address  is  stored  in  the 
TCB  and  the  ECB  being  waited  on  is  posted  by  the  Line 
Task  associated  with  this  terminal.  When  CRTREAD  is  dis- 
patched, it  checks  the  message  for  the  presence  of  a 
Zeus  command.  If  a command  is  located,  the  command  pro- 
cessing subsystem  is  called.  Upon  return  from  this  sub- 
system, a branch  is  made  back  to  the  first  step  of 
CRTREAD  when  the  output  buffer  is  checked  for  valid  data. 
This  loop  will  continue  as  long  as  the  messages  being 
input  contain  commands.  When  a message  is  input  that 
does  not  contain  a command,  return  is  made  to  the 
original  caller  of  CRTREAD. 

ZEUS  MACROS 

USED:  #0PENP,  #C0UNT,  #G0T0,  #WAIT,  ICLOSEP,  #FREEMEM 

ROUTINES 

CALLED:  EMPTY,  RTERM,  CMNDPRl , STACK 


f SIZE  IN 

BYTES:  368  bytes 

EXTERNAL 

i REFERENCES:  RTERM,  GETSAVE,  I COUNT,  EMPTY,  FREEMEM 

i EXIT:  Address  in  R14 

! ATTRIBUTES:  REENTRANT 


NAME: 


EMPTY 


FUNCTION:  Request  output  operation  to  terminal. 

INPUT:  R12  ^ TCB 

R13  -»■  18-word  save  area 
R14  ->  Return  point  address 
R15  Entry  point  to  EMPTY 


OUTPUT:  Output  buffer,  if  any,  written  on  terminal  and  deallocated. 


PROCESS:  EMPTY  is  called  to  flush  any  valid  data  from  the  terminal 

output  buffer.  EMPTY  first  determines  if,  indeed,  the 
buffer  is  available  and  does  contain  valid  data.  If  not, 
it  returns;  otherwise  it  calls  WTERM  to  schedule  an 
output  operation  to  the  terminal.  Upon  return  from  WTERM, 
it  waits  on  an  ECB  in  the  TCB  for  completion  of  the  out- 
put operation.  It  then  cleans  up  the  TCB,  frees  the 
buffer,  and  returns  to  the  caller. 

ZEUS  MACROS 

USED:  #0PENP,  #G0T0,  #SET,  #WAIT,  #C0UNT,  #CL0SEP,  #FREEMEM 

ROUTINES 

CALLED:  WTERM 

SIZE  IN 

BYTES:  316  bytes 

EXTERNAL 

REFERENCES:  WTERM,  FREEMEM,  GETSAVE,  ICOUNT 

EXIT:  Address  in  R14 

ATTRIBUTES:  REENTRANT 

WRITTEN  BY:  Jean  Garneau 


NAME: 

FUNCTION: 

INPUT: 


OUTPUT: 

PROCESS: 


ZEUS  MACROS 
USED: 

ROUTINES 

CALLED: 

SIZE  IN 
BYTES: 

EXTERNAL 

REFERENCES: 

EXIT: 

ATTRIBUTES: 
WRITTEN  BY: 


FULL 

Handle  full  output  buffer  condition 
R12  TCB 

R13  -►  18-word  save  area 
R14  -*■  Return  point  address 
R15  -*•  Entry  point  to  FULL 

Buffer  output  to  terminal  and  then  deallocated 

FULL  first  inserts  a comment  into  Block  One  of  the  buffer 
explaining  that  the  output  operation  is  caused  by  a 
"full"  CRT  "page."  The  address  of  this  block  is  available 
in  the  TCB.  EMPTY  then  calls  CRTREAD  which  schedules  the 
output  operation,  waits  for  a^  "press-send",  etc.  CRTREAD 
returns  a message  that  is  discarded  by  FULL.  FULL  then 
returns  to  the  caller. 


#0PENP,  #C0UNT.  #CL0SEP,  #FREEMEM 

CRTREAD 

168  bytes 

GETSAVE,  FREEMEM,  I COUNT 
Address  in  R14 
REENTRANT 
Jean  Garneau 
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NTPIO 


NAME: 

FUNCTION: 

INPUT: 


OUTPUT: 

PROCESS: 


ZEUS  MACROS 
USED: 

ROUTINES 

CALLED: 

SIZE  IN 
BYTES: 

EXTERNAL 

REFERENCES: 

EXIT: 

ATTRIBUTES: 
WRITTEN  BY: 


Initiate  nonteleprocessing  I/O  operations. 

R1  -V  I/O  buffer  plus  operation  code 
R12  H.  TCB 

R13  -►  18-word  save  area 
R14  Return  point  address 

R15  Entry  point  to  NTPIO 

I/O  operation  scheduled 

NTPIO,  using  the  Basic  Access  Method  DECB  contained  in  the 
TCB,  initiates  either  an  Input  or  an  Output  operation  and 
then  returns  to  the  caller.  Register  1 at  entry  contains 
the  address  of  the  buffer  to  be  written  from  or  read  into. 
If  register  1 is  negative,  the  operation  requested  is  a 
write,  otherwise  it  is  a read.  If  the  first  bit  of  the 
FILECB  (in  the  TCB)  byte  is  on,  the  I/O  operation  involves 
keys,  otherwise  it  is  relative  record  I/O. 


#OPENP,  #G0T0,  #C0UNT,  #CL0SEP 


None 


356  bytes 
None 

Address  in  R14 
Serially  reusable 
Jean  Garneau 
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NAME:  RESET 

FUNCTION:  If  a terminal  output  buffer  is  not  currently  available, 

RESET  allocates  one  and  formats  it. 

INPUT:  R1  TCB 

R13  -►  18-word  save  area 
R14  -►  Return  format  address 
R15  -»•  Entry  point  to  RESET 

OUTPUT:  Updated  TCB 

PROCESS:  Reset  checks  SBUFIA  in  the  TCB.  If  SBUFIA  equals  zero,  a new 

buffer  is  allocated  via  #GETMEM.  The  TCB  fields  SBUFIA, 
PAGELINE,  PAGEND,  LINEREM,  and  POSREM  are  updated  and 
control  is  returned  to  the  caller. 

ZEUS  MACROS  #GENSECT,  #0PENP,  #GETMEM,  #C0UNT,  #G0T0,  #CL0SEP, 

USED:  #REGS,  #FREEMEM 

ROUTINES 

CALLED:  None 

SIZE  IN 

BYTES:  264  bytes 

EXTERNAL 

REFERENCES:  GETSAVE,  I COUNT,  DSPTCHR,  GETMEM,  FREEMEM 

EXIT:  Address  in  R14 

ATTRIBUTES:  REENTRANT 

WRITTEN  BY:  Jean  Garneau 
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NAME: 

FUNCTION: 

INPUT; 


OUTPUT: 

PROCESS: 


ZEUS  MACROS 
USED: 

ROUTINES 

CALLED: 

SIZE  IN 
BYTES : 

EXTERNAL 

REFERENCES: 

EXIT: 

ATTRIBUTES: 
WRIHEN  BY: 


RTERM 

To  serve  as  an  interface  to  the  TP  line  task. 

R12  ->  TCB 

R13  -»■  18-word  save  area 
R14  Return  point  address 
R15  -*■  Entry  point  to  RTERM 

TCB  and  LCB  updated  to  reflect  current  status. 

The  user  specifies  the  address  of  the  TCB,  which  points 
to  the  terminal  that  is  to  be  read.  RTERM  increments  the 
poll  count  (LPOLLC)  field  of  the  line  (LCB)  to  which  the 
terminal  belongs.  If  the  line  is  idle,  RTERM  posts  its  LCB 
complete  and  returns.  If  the  line  is  busy,  return  is  made 
without  posting. 


#0PENP,  #REGS,  #GENSECT,  #SET,  #G0T0,  #CL0SEP 
None 

184  bytes 


None 

Address  in  R14 
Serially  reusable 
Jean  Garneau 


NAME: 


RTERMl  (Line  Task  Foundation  Module) 


FUNCTION: 

INPUT: 

OUTPUT: 

PROCESS: 


To  issue  a read  initial  to  the  requesting  line,  move  the 
message  read  to  a buffer,  and  translate  the  message  from 
ASCII-8  to  EBCDIC. 

R1  -»■  LCB 

R15  -►  Entry  point  to  RTERMl 

TCBECB  is  posted  complete  (Byte  1 = X'40') 

AIOBUF  updated  (only  if  return  code  = 0) 

LSTAT  updated 
LPOLLC  updated 

Error  codes  returned  in  right-most  byte  of  TCBECB 
00  = Read  O.K. 

04,08,0C  = Read  bad,  try  again. 

RTERMl  is  attached  once  for  each  communication  line  to  be 
activated.  It  immediately  branches  to  label  "START".  START 
interrogates  the  LCB  to  determine  if  any  terminals  (TCBs) 
require  I/O  servicing.  If  none  do,  the  task  enters  idle 
mode  by  turning  off  the  busy  bit  in  the  LCBFLGS  byte  of 
the  LCB,  and  issuing  a #WAIT  on  an  ECB  in  the  LCB.  The 
task  remains  idle  until  a TCB  associated  with  its  LCB 
requests  I/O  by  altering  certain  status  fields  in  both 
the  TCB  and  LCB  and  then  posting  the  ECB  that  the  task 
is  waiting  on. 

When  activated,  the  task  first  checks  to  see  if  a 
(terminal)  output  operation  has  caused  the  activation. 

If  so,  it  branches  to  a routine  (WTERMl)  to  take  care 
of  it/them.  If  not,  it  attempts  to  acquire  memory  for  an 
input  buffer.  If  not  available,  a #WAIT  is  issued  to 
wait  for  the  memory  to  become  available.  If  the  memory 
request  is  deleted  during  the  wait,  a branch  is  made 
back  to  START.  When  the  memory  is  acquired,  the  address 
and  length  are  saved  and  a read  into  the  buffer  is  issued 
to  the  line.  If  it  completes  without  error,  the  message 
is  moved  to  a second  buffer  acquired  in  the  same  manner 
as  the  first,  edited,  and  translated  to  EBCDIC.  If  the 
read  completes  with  an  error,  the  appropriate  message  is 
sent  to  the  console,  a write  negative  acknowledgement  is 
issued,  memory  is  freed,  and  a branch  to  START  is  issued. 
If  the  read  completes  with  a negative  response  to  poll, 
the  negative  response  flag  is  turned  on  and  a check  is 
made  to  determine  if  all  terminals  requesting  input  have 
been  polled.  If  not,  the  routine  loops  until  all  have  been 
serviced.  If  all  have  been  checked,  the  input  buffer  is 
freed  and  a branch  is  made  to  the  write  routine  if  any 
writes  have  been  requested  during  the  period.  If  no  writes 
are  pending,  a #STIMER  is  issued  and,  when  the  interval 
completes,  a branch  to  START  is  made. 


liiteurt!' 


ZEUS  MACROS 
USED: 


#SET,  #REGS.  #GENSECT,  #OPEN,  #GOTO,  #GETMEM,  #WAIT 
#MOVE,  #FREEMEM,  #STIMER,  #CALL 


ROUTINES 

CALLED: 


WTERMl 


SIZE  IN 
BYTES: 


EXTERNAL 

REFERENCES 


lECTTRNS,  ITIMER,  GETMEM,  DSPTCHR,  MOVEOOO,  FREEMEM 
ATE,  WTERMl 


To  address  in  R14 


ATTRIBUTES:  REENTRANT 


WRITTEN  BY 


Jean  Garneau 


NAME: 

FUNCTION: 

INPUT: 


OUTPUT: 

PROCESS: 


ZEUS  MACROS 
USED: 

ROUTINES 

CALLED: 

SIZE  IN 
BYTES: 

EXTERNAL 

REFERENCES: 

EXIT: 

ATTRIBUTES: 
WRITTEN  BY: 


STACK 

To  scan  character  string  and  format  page  for  output  to  CRT. 

RO  = Maximum  length  of  scan. 

R1  -►  Beginning  of  string  to  be  scanned. 

R12  TCB 

R14  ->  Return  point 

R15  ->•  Entry  point  to  STACK 

Character  string  moved  to  output  buffer  and  count  of  lines 
and  bytes  remaining  in  page  updated. 

The  character  string  is  scanned  and  the  line  count  field 
in  the  TCB  is  decremented  by  one  for  each  carriage  return 
encountered  or  for  each  84  bytes  with  no  carriage  return. 
The  positions  remaining  field  in  the  TCB  is  decremented 
by  the  length  of  the  message.  The  scan  is  terminated  when 
an  ETX  is  found  or  when  the  scan  limit  (RO)  is  reached. 

The  character  string  and  prefix  (if  necessary)  are  moved 
to  the  output  buffer,  the  address  of  which  is  in  the 
SBUFIA  field  of  the  TCB.  If  the  page  is  filled  before 
the  scan  terminates,  FULL  and  RESET  are  called  prior 
to  continuing  the  scan. 


#REGS,  #0PENP,  #G0T0,  #SET,  #C0UNT,  #CL0SEP 
RESET,  FULL 
578  bytes 

GETSAVE,  RESET,  FULL,  ICOUNT,  FREEMEM 
Address  in  R14 
REENTRANT 
Jean  Garneau 


NAME: 


TERMIO  (Terminal  Task  foundation  module) 


FUNCTION: 

INPUT: 

OUTPUT: 


R1  -*■  Terminal  Control  Block 

R13  ->■  18-word  save  area 

R15  ^ TERMIO  entry  point  address 

Updated  DECB,  TCB,  LCB;  I/O  operation  initiated  and 
completed. 


PROCESS:  TERMIO  is  attached  by  the  Zeus  initiation  routine  once 

for  each  terminal  to  be  activated.  It  immediately  waits  on 
a "no  work"  ECB  in  the  TCB  passed  to  it  during  the  attach. 
It  remains  dormant  until  its  TCB  has  been  acquired  and 
posted  by  an  external  processor.  When  the  TCB  is  posted 
by  the  external  processor,  th'e  task  becomes  active.  It 
loads  the  external  processor  DECB  address  into  a register 
and  checks  the  read/write  flag.  If  it  is  a write  operation, 
a buffer  is  acquired,  the  message  is  moved  to  it  and 
translated,  if  necessary,  to  EBCDIC.  Next,  the  message 
is  checked  to  determine  if  a Zeus  command  is  present.  If 
a command  is  present,  the  Command  Processing  Subsystem  is 
called,  otherwise  a routine  (STACK)  is  called  which  handles 
message  traffic  to  the  terminal.  If  the  operation  requested 
is  read,  a routine  (CRTREAD)  is  called  which  handles  incom- 
ing messages  from  terminal.  Upon  return  from  this  routine, 
an  address  is  available  in  the  TCB  which  points  to  the 
message  to  be  passed  to  the  external  processor.  TERMIO 
loads  this  address  into  a register,  translates  the 
message,  if  necessary,  moves  the  message  to  the  external 
processor  buffer,  and  posts  the  external  processor's 
DECB.  Finally,  TERMIO  again  waits  on  its  "no  work"  ECB. 


ZEUS  MACROS  #0PEN,  #GENSECT,  #SET,  #WAIT,  #G0T0,  #C0UNT,  #LPSW,  #CALL, 
USED:  #GETMEM,  #FREEMEM 


ROUTINES 

CALLED:  MOVE,  STACK,  CRTREAD,  EMPTY,  CMNDPROC 


SIZE  IN 

BYTES:  802  bytes 


EXTERNAL  MOVE,  lECTTRNS,  CMNDPROC,  STACK,  EMPTY,  CRTREAD,  DSPTCHR, 

REFERENCES:  LTE,  FREEMEM,  CTLTAB,  ETL,  GETMEM 


EXIT:  N/A 

AHRIBUTES:  REENTRANT 


NAME: 

FUNCTION: 

INPUT: 


OUTPUT: 

PROCESS: 


ZEUS  MACROS 
USED: 

ROUTINES 

CALLED: 

SIZE  IN 
BYTES: 

EXTERNAL 

REFERENCES: 

EXIT: 

ATTRIBUTES: 
WRITTEN  BY: 


WTERM 

To  serve  as  an  interface  between  a Terminal  Task  and  a 
Line  Task. 

R12  ->  TCB 

R13  ^ 18-word  save  area 
R14  Return  point  address 

R15  Entry  point  to  WTERM 

TCB  and  LCB  updated  to  reflect  current  status. 

The  user  specifies  the  address  of  the  terminal  (address  of 
the  TCB)  which  is  to  be  written.  WTERM  increments  the 
write  count  field  (LADDRC)  of  the  line  (LCB)  to  which  the 
terminal  belongs.  If  the  linp  is  idle,  WTERM  posts  it  com- 
plete and  returns.  If  polling,  WTERM  calls  RESETPL  and  then 
returns.  If  waiting  for  an  interval  to  expire,  a #TTIMER 
CNACEL  is  issued  and  then  return  is  made.  If  waiting  for 
memory,  the  memory  queue  element  for  this  request  is  can- 
celled and  return  is  made. 

#0PENP,  #REGS,  #SET,  #GENSECT,  #G0T0,  #TTIMER,  #FREEMEM, 
#CL0SEP 


RESETPL 


304  bytes 


ITIMER,  RESETPL,  FREEMEM 
Address  in  R14 
Serially  reusable 
Jean  Garneau 
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NAME: 

FUNCTION: 

INPUT: 


OUTPUT: 


PROCESS : 


ZEUS  MACROS 
USED: 

ROUTINES 

CALLED: 

SIZE  IN 
BYTES: 

EXTERNAL 

REFERENCES: 


WTERMl 

To  issue  an  OS,  write  to  a specified  line. 

R12  ^ TCB 

AIOBUFF  buffer 

BYTES  1&2  = buffer  length 

BYTES  3&4  = message  length 

BYTE  5 = X'02'  (STX) 

BYTES  6 to  n = message 

TCBECB  posted  complete  (Byte  1 = X'40') 

LSTAT  updated 
LADDRC  updated 

Error  codes  in  right-most  byte  of  TCBECB 
X'OO'  = no  errors 

X'04'  = message  too  long  for  buffer 
X'08'  = no  write  operation  initiated 
X'OC  = write  completed  with  error 

The  message  length  and  address  are  obtained  from  AIOBUF. 

The  message  is  then  translated  from  EBCDIC  to  ASCII-8, 
an  F.TX  (X'03'j^  placed  in  the  last  position  of  the  buffer, 
and  a STX  (X'02')  in  the  first  position  to  the  buffer. 

A write  initial  with  reset  is  issued,  and  if  there  was 
an  error- free  completion  of  the  operation,  the  necessary 
LCB  and  TCB  fields  are  updated.  The  TCBECB  is  posted  with 
a 0 and  return  is  made.  If  there  was  a non-X'7F'  com- 
pletion, an  attempt  is  made  to  write  a positive  acknowl- 
edgement. If  unsuccessful,  a message  is  sent  to  the  console, 
the  TCBECB  is  posted  with  a 12,  the  necessary  LCB  and  TCB 
fields  are  updated,  and  return  is  made.  If  the  write  "ack" 
is  successful,  the  message  is  not  sent  but  the  TCBECB  is 
posted  with  a 12,  the  LCB  and  TCB  fields  are  updated,  and 
return  is  made.  If  there  was  an  error  in  the  buffer  length, 
the  TCBECB  is  posted  with  a 4.  If  there  was  a buffer 
address  error,  a message  is  sent  to  the  console  and  the 
TCBECB  is  posted  with  a 0.  If  there  was  a bad  write  opera- 
tion the  TCBECB  is  posted  with  an  8. 


#GENSECT,  #0PENP,  #G0T0,  #WAIT,  #SET,  #CL0SEP,  #REGS 


None 


464  bytes 


lECTTRNS,  GETSAVE,  ETA,  DSPTCHR,  FREEMEM 


SECTION  2:  COMMAND  PROCESSING 


Zeus  system  modules  that  perform  commeind  processing  functions  are  shown  in  the 
following  list: 


Name 

Function 

CMNDPRl 

First-level  command  processing 

CMNDPR2 

Second-level  command  processing 

SCAN 

Scan  and  edit  Zeus  command  strings 

CON 

Process  console  command 

EOJ 

Process  LOG  command 

GCOUNT 

Process  counter  status  command 

ICTBLID 

Counter  name  table 

RJEOOOO 

First-Level  Remote  Job  Entry  (RJE) 

RJEOlOO 

Second-level  .RJE 

RJE0200 

Third-level  RJE 

RJE0300 

Fourth-level  RJE 

STA 

First-level  interface  to  all  status  commands 

WTL 

Write  message  to  system  log 

WTO 

Write  message  to  operator  console 

Zeus  command  syntax  and  purpose  are  described  in  Volume  1,  Chapter  4.  A 
description  of  each  module  follows. 


i 

I 


ii 


CMNDPRl 


NAME: 

FUNCTION: 

INPUT: 


OUTPUT: 


PROCESS: 


ZEUS  MACROS 
USED: 

ROUTINES 

CALLED: 

SIZE  IN 
BYTES : 

EXTERNAL 
REFERENCES : 


EXIT: 

ATTRIBUTES: 
WRITTEN  BY: 


Process  Zeus  comnands. 

R1  ->  First  alpha  character  in  command 
R13  -*■  18-word  save  area 
R14  ->■  Return  point  address 
R15  Entry  to  CMNDPRl 

Command  is  executed,  appropriate  error  message  is  sent  or 
appropriate  transient  routine  loaded  and  branched  to. 

First  a check  is  made  to  see  if  a MODify  is  in  process.  If 
so,  a return  is  made  with  a return  code  of  8.  If  not,  SCAN 
is  called  and  the  command  decoded.  If  it  is  a request  for 
INFO,  a branch  is  made  to  pro.cess  INFO  requests.  If  the 
command  is  POL,  ( ),  RJE,  COR,  or  NOP  a branch  is  made 

to  the  appropriate  routines  for  processing  these  commands. 
For  any  other  commands,  CMNDPR2  is  called  to  compile  and 
insert  CRT  control  information  if  necessary.  Upon  return, 
if  the  command  was  completely  processed,  immediate  return 
is  made.  If  an  invalid  verb  was  found  by  CMNDPR2,  a branch 
is  made  to  TRANLOAD  to  try  to  find  the  appropriate  routine 
for  processing  the  allegedly  invalid  verb.  If  unsuccessful, 
the  appropriate  error  message  is  sent  and  return  is  made. 

If  a valid  command  was  incompletely  processed  by  CMNDPR2, 
processing  is  completed  within  CMNDPR1“(CRE,C0P,M0D,DEL) . 
Return  is  made  with  a return  code  of  0 if  processing  was 
successfully  completed  and  with  a return  code  of  8 if  not. 

#0PENP,  #GENSECT,  #G0T0,  #SET,  #CALL,  #WAIT,  #L0AD, 

#DELETE,  fi'CLOSEP,  #REGS,  #GETMEM,  ii^FREEMEM  #C0NVRT,  #M0VE 

CMNDPR2,  STACK,  RJEOOOO,  SCAN,  EOJ,  CONSOLE,  SUBMIT,  MSCHD, 
CRTREAD,  RESET. 


2998  bytes 

GETSAVE,  DSPTCHR,  lECTTRNS,  FREEMEM,  MOVEOOO,  LDROOO, 

GETMEM,  SCAN,  CMNDPR2,  NTPIO,  ATE,  EMPTY,  RESET,  STACK,  ETA, 
CRTREAD,  SCANKEY,  IFILE,  CMNDPRl,  SUBMIT,  MSCHD,  RJEOOOO, 
STATUS,  EOJ,  CONSOLE,  LTE,  CNVTOOO. 

Address  in  R14 

REENTRANT 

Jean  Garneau 


NAME: 


CMNDPR2 


I 


c 


FUNCTION: 

INPUT: 


OUTPUT: 

PROCESS: 


Called  by  CMNDPRl  to  complete  processing  of  some  Zeus  com- 
mands and  to  compile  and  partially  complete  processing 
of  others. 

R1  ^ Command  left  parenthesis 
R13  ^ 18-word  save  area 
R14  ^ Return  point  address 
R15  ->  Entry  point  to  CMNDPR2 
AQWORK  ^ Work  area 

Updated  buffer  and  TCB 

The  appropriate  second-level  subroutine  is  branched  to, 
depending  on  the  command  being  processed.  The  second- 
level  subroutines  decode  the  commands  and  turn  on  the 
appropriate  bits  in  the  TCB  to  indicate  which  command  is 
being  processed  and  whether  the  processing  has  been  com- 
pleted. Third-level  routines  are  branched  to  if  necessary 
to  determine  file  and  record,  and  to  identify  literals. 
Fourth-level  routines  are  branched  to,  if  necessary,  to 
process  literals  and  record  keys.  Fifth-level  routines 
are  branched  to  get  next  available  buffer  location.  Each 
level  of  routines  returns  to  the  next  higher  level, 
eventually  getting  to  the  first-level  routines  which 
insert  the  appropriate  prefix,  set  the  return  code,  and 
return  to  CMNDPRl . 


ZEUS  MACROS  #0PENP,  #REGS,  #GENSECT,  #G0T0,  #CALL,  #SET,  #CL0SEP, 

USED:  #FINDZVT,  #FREEMEM,  #C0NVRT,  #M0VE 

ROUTINES 

CALLED:  RESET,  EMPTY 

SIZE  IN 

BYTES:  2183  bytes 


EXTERNAL  GETMEM,  FREEMEM,  ZEUSSVC,  CNVTOOO,  EMPTY,  RESET,  DFILE, 

REFERENCES:  RFILE,  FFILE,  IFILE,  QFILE,  SCANKEY 


[ EXIT:  Address  in  R14 

I,  ■ 

i I ATTRIBUTES:  REENTRANT 


NAME: 

FUNCTION: 

INPUT: 


OUTPUT: 

PROCESS: 


ZEUS  MACROS 
USED: 

ROUTINES 

CALLED: 

SIZE  IN 
BYTES: 

EXTERNAL 

REFERENCES: 


EXIT: 

ATTRIBUTES: 
WRITTEN  BY: 


SCAN 

To  determine  if  a character  string  contains  a Zeus  command 
and  if  so  to  edit  it. 

RO  -►  Area  in  which  to  return  SCANned  command. 

R1  ->  Beginning  of  character  string 
R12  TCB 

R13  ->  18-word  save  area 
R14  ->  Return  address 
R15  ^ Entry  point  to  SCAN 

Edited  command  in  specified  area,  R1  ->■  command  terminator. 

The  character  string  is  scanned  for  the  first  nonblank 
character.  If  this  character  is  not  a left  parenthesis, 
return  is  made.  If  it  is  a left  parenthesis,  the  scan 
continues.  If  there  are  blanks,  these  are  removed  unless 
part  of  a literal.  A literal  is  enclosed  in  balanced  single 
quotes  and  is  left  as  is  unless  it  contains  two  consecutive 
single  quotes,  in  which  case  one  is  removed.  If  unbalanced 
command  delimiters  or  quotes  are  encountered,  or  the 
maximum  length  is  exceeded,  the  appropriate  message  is 
sent  to  the  terminal  and  the  command  is  ignored. 

#0PENP,  #GENSECT,  #C0UNT,  #G0T0,  #CL0SEP,  #REGS 

STACK 


726  bytes 

GETSAVE,  ICOUNT,  FREEMEM,  STACK 
Address  in  R14 
REENTRANT 
Jean  Garneau 
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Ittiiabiiil 


NAME: 

CON 

FUNCTION: 

Formats  and  outputs  to  the  requesting  terminal  a copy  of 
the  contents  of  the  OS  operator  console  buffers  and 
related  information. 

INPUT: 

Rll  ^ ZVT 

R12  ^ TCB 

R13  -V  18-word  save  area 

R14  Return  address 

R15  Entry  point  to  CON 

OUTPUT: 

Formatted  output  buffer 

PROCESS : 

CON  is  a transient  module  invoked  by  CMNDPRl  as  a result 
of  a CON  command.  It  stacks  the  following  output  for  the 
requesting  terminal: 

(1)  Contents  of  the  console  input  buffer. 

(2)  Contents  of  the  console  output  buffers. 

(3)  List  of  outstanding  replies  by  number  and 
requesting  task  RB  name. 

(4)  List  of  tasks  in  dispatching  priority  order 
giving  jobname,  stepname,  and  active  RB  name. 

ZEUS  MACROS 

USED: 

#RE6S,  #0PENP,  #G0T0,  #CALL,  #CL0SEP.  #GENSECT 

ROUTINES 

CALLED: 

STACK 

SIZE  IN 

BYTES: 

543  bytes 

EXTERNAL 

REFERENCES : 

None 

EXIT: 

Address  in  R14 

ATTRIBUTES: 

REENTRANT,  TRANSIENT 

WRITTEN  BY: 

Jean  Garneau 
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NAME: 

FUNCTION: 

INPUT: 


OUTPUT: 

PROCESS: 


ZEUS  MACROS 
USED: 

ROUTINES 

CALLED: 

SIZE  IN 
BYTES: 

EXTERNAL 

REFERENCES: 

EXIT: 

AHRIBUTES: 
WRITTEN  BY: 


EOJ 

Performs  Zeus  system  shutdown  functions. 

R1  -*■  (EOJ)  command 
Rl]  ^ ZVT 
R12  ^ TCB 

R14  -»■  Return  address 
R15  ->■  Entry  point  to  EOJ 

None 

EOJ  is  a transient  module  invoked  by  an  EOJ  command  from 
CMNDPRl . EOJ  scans  all  TCBs  in  the  system  to  determine  if 
any  ports  are  logged  on.  If  ports  are  logged  on,  a message 
is  stacked  for  the  requester's'  terminal  indicating  that 
EOJ  failed.  If  all  ports  are  logged  off,  EOJ  forces  com- 
pletion of  the  RDRINTPR's  outstanding  #STIMER  and  returns 
to  CMNDPRl.  The  RDRINTPR  then  handles  final  EOJ  processing. 

#RE6S,  #0PENP,  #G0T0,  #CL0SEP,  #SET,  #TTIMER,  #CALL, 
#GENSECT 


STACK 


186  bytes 


None 

Address  in  R14 
REENTRANT,  TRANSIENT 
Jean  Garneau 


GCOUNT 


NAME: 

FUNCTION: 


INPUT: 


OUTPUT: 


ZEUS  MACROS 
USED: 

ROUTINES 

CALLED: 

SIZE  IN 
BYTES: 

EXTERNAL 

REFERENCES: 


EXIT: 

AHRIBUTES: 
WRITTEN  BY: 


Formats  and  writes  on  a terminal  the  contents  of  the 
Zeus  performance  registers. 

Rll  ^ ZVT 

R13  18-word  save  area 

R14  Return  point  address 

R15  ->  Entry  point  to  GCOUNT 

GCOUNT  calls  STACK  once  for  each  nonzero  counter  value, 
passing  it  a line  of  text  containing  a counter  value  and 
description  from  CSECT  'ICTBLID'. 

#0PENP,  #REGS,  #C0UNT,  #60T0,  #CL0SEP.  #CALL,  #FREEMEM 

STACK 

408  bytes 

ICOUNTl,  IC0UNT2,  GETSAVE,  ICTBLID,  ICTBL,  ICTLGTH, 
STACK,  FREEMEM 

Address  in  R14 

REENTRANT,  TRANSIENT 

Jean  Garneau 
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NAME: 

ICTBLID 

FUNCTION: 

Driver  for  6C0UNT  routine. 

INPUT: 

None 

OUTPUT: 

None 

PROCESS : 

Nonexecutable  macro-operated  table  input  to  the  GCOUNT 
routine. 

ZEUS  MACROS 
USED: 

None  (internal  macro). 

ROUTINES 

CALLED: 

None 

SIZE  IN 

BYTES : 

266  bytes 

EXIT: 

N/A 

AHRIBUTES: 

N/A 

WRITTEN  BY: 

Jean  Garneau 

NAME: 

FUNCTION: 

INPUT: 


OUTPUT: 

PROCESS: 

ZEUS  MACROS 
USED: 

ROUTINES 

CALLED: 

SIZE  IN 
BYTES: 

EXTERNAL 

REFERENCES: 

EXIT: 

ATTRIBUTES: 
WRITTEN  BY: 


RJEOOOO 

Performs  the  services  requested  by  (RJE)  'text'  commands 

R1  -►  (RJE  text) 

R12  TCB 

R13  -*■  18-word  save  area 
R14  -*■  Return  point  address 
R15  ^ Entry  point  to  RJEOOOO 

R15  = 4 The  input  command  has  been  replaced  by  a new 
command  to  be  executed. 

R15  = 0 No  new  command  has  been  created. 

RJEOOOO  is  called  by  CMNDPRl  when  an  RJE  command  is 
encountered.  It  examines  the  text  portion  of  the  command 
to  determine  which  function  is  to  be  performed,  and 
branches  to  the  appropriate  routine. 

#REGS,  #GENSECT,  #0PENP,  #G0T0,  #CALL,  #WAIT,  #ENQ,  #DEQ 
#CL0SEP,  #C0NVRT 


STACK,  NTPIO 


2488  bytes 

GETSAVE,  CNVTOOO,  ETA,  STACK,  RFILE,  NTPIO,  DSPTCHR, 
ENQCTRL,  FREEMEN 

Address  in  R14 

REENTRANT 

William  Underhill 


RJEOlOO 


NAME: 

FUNCTION: 


INPUT: 


OUTPUT: 

PROCESS: 


ZEUS  MACROS 
USED: 

ROUTINES 

CALLED: 

SIZE  IN 
BYTES: 

EXTERNAL 

REFERENCES: 


EXIT: 

ATTRIBUTES: 
WRITTEN  BY: 


RJE0100  1s  a resident  module  that  handles  the  OS  job  sub- 
mission function  of  the  Zeus  RJE  subsystem. 

R11  ZVT 

R13  ^ 18-word  save  area 

R14  ->  Return  point 

R15  -►  Entry  point  to  RJEOlOO 

Updated  job  submission  queue 

RJEOlOO  is  attached  as  a Zeus  task  which  waits  on  a 
#STIMER  interval  (currently  set  at  15  minutes).  When  the 
interval  is  completed  (RJEOOOO  may  force  completion  of 
the  outstanding  #STIMER  in  a VS  system  or  upon  encounter- 
ing certain  thresholds),  RJEOlOO  loads  and  branches  to 
RJE0200  which  determines  if  any  jobs  have  been  placed  in 
the  Zeus  RJE  queue  during  the  past  interval.  Upon  return 
from  RJE0200,  a return  code  is  checked  to  determine 
whether  or  not  to  load  and  execute  REJ0300,  which 
processes  the  job  directory  table  created  by  RJE0200. 
Finally,  RJEOlOO  checks  a bit  set  by  the  EOJ  processor 
(EOJ  may  force  completion  of  the  outstanding  #STIMER). 

If  the  bit  is  not  set,  RJEOlOO  reissues  the  #STIMER  and 
waits  for  the  next  interval  to  complete.  If  the  bit  is 
set,  RJEOlOO  chains  through  the  free  queue  elements  in 
the  Zeus  memory  subpool  and  returns  them  all  to  OS  via 
a FREEMAIN  macro  and  then  issues  an  operator  message 
requesting  termination  of  Zeus. 

#REGS,  #GENSECT,  #0PENP,  #FINDZVT,  #G0T0,  #SET,  #STIMER, 
#DELETE,  ROAD. 


None 


552  bytes 

ZEUSSVC,  ITIMER,  RFILE,  RJEFILE,  DSPTCHR,  LDROOOO 
N/A 

Attached  Task 
William  Underhill 


NAME: 

FUNCTION: 

INPUT: 


OUTPUT: 

PROCESS: 


ZEUS  MACROS 
USED: 

ROUTINES 

CALLED: 

SIZE  IN 
BYTES: 

EXTERNAL 

REFERENCES: 

EXIT: 

ATTRIBUTES: 
WRITTEN  BY: 


RJE0200 

Creates  a table  of  RJE  text  file  pointers  from  the  RJE  job 
submission  queue  and  resets  the  queue  to  empty  status. 

RO  -*■  Table  of  DECBs  to  be  used  in  I/O  processing. 

Rll  ZVT 

R13  ->  18-word  save  area 
R14  Return  point  address 
R15  -»■  Entry  point  to  RJE0200 

R15  = 0 if  queue  was  empty,  or 
R15  = address  of  created  table. 

RJE0200  #ENQs  on  the  RJE  text  file  to  temporarily  prevent 
updating  of  the  submission  queue  by  RJEOOOO.  It  then 
allocates  a buffer  and  reads  the  submission  queue  record 
(Record  7)  from  the  RJE  text  file.  If  the  queue  is  empty, 
RJE0200  #DEQs  and  returns.  If  the  queue  is  non-empty,  a 
buffer  equal  to  the  size  of  the  active  part  of  the  queue 
is  allocated  and  the  queue  information  is  copied  to  the 
buffer.  The  queue  size  is  then  set  to  zero,  the  record 
is  rewritten  and  RJE0200  #DEQs  from  the  file  and  returns. 

#REGS,  #GENSECT,  #0PENP,  #ENQ,  #WAIT,  #G0T0,  #DEQ, 
#FREEMEN,  #CL0SEP,  #GETMEM 


None 


474  bytes 
None 

Address  in  R14 

Serially  reusable,  TRANSIENT 
William  Underhill 
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RJE0300 


NAME: 

FUNCTION: 


INPUT: 


OUTPUT: 

PROCESS: 


ZEUS  MACROS 
USED: 

ROUTINES 

CALLED: 

SIZE  IN 
BYTES: 

EXTERNAL 

REFERENCES: 


EXIT: 

ATTRIBUTES: 
WRITTEN  BY: 


Reads,  formats,  and  writes  the  submitted  RJE  file  records 
into  a parti oned  data  set  and  starts  an  OS  reader  on  the 
PDS  member. 

RO  ^ Table  of  DECBs  to  be  used  for  I/O 
R1  Table  of  submitted  RJE  file  record  numbers 
Rll  ->  ZVT 

R13  -»•  18-word  save  area 
R14  ->  Return  point  address 
R15  Entry  point  to  RJE0300 

Batch  jobs  submitted  to  OS/VS  Reader 

For  each  record  given  in  the  input  table,  RJE0300  does 
the  following: 

(1)  Translates  record  to  EBCDIC 

(2)  Scans  for  carriage  return  character 

(3)  Moves  line  to  80-character  output  buffer  and 
pads  with  blanks 

(4)  If  line  is  a job  or  exec  card,  writes  line  on 
operator  console 

(5)  Writes  output  buffer  to  PDS  when  full.  When  all 
records  have  been  processed,  RJE0300  calls  the 
MSCHD  routine  with  a "Start  Reader"  command 
specifying  the  PDS  member  just  created. 

#REGS,  #GENSECT,  #0PENP,  #GETMEM,  #WAIT,  #G0T0,  #CALL, 
#CL0SEP 


MSCHD 


1 ,197  bytes 
None 

Address  in  R14 

Serially  reusable,  TRANSIENT 

William  Underhill 


NAME: 


STA 


W 


FUNCTION: 

INPUT: 


OUTPUT: 


PROCESS: 


t I 


ZEUS  MACROS 
USED: 

ROUTINES 

CALLED: 

SIZE  IN 
BYTES : 

EXTERNAL 

REFERENCES: 


EXIT: 

ATTRIBUTES: 
WRITTEN  BY: 


Formats  and  outputs  the  contents  of  specified  counters  or 
memory  locations. 

R1  ^ (STAx) 

Rll  ^ ZVT 
R12  TCB 

R14  -»■  Return  address 
R15  Entry  address  to  STA 

R15  = 0 Normal  return 
R15  f if  error  encountered 
Formatted  Buffer 

STA  is  a transient  module  loaded  by  CMNDPRl  in  response  to 
a STA  command.  The  fourth  character  of  the  command  deter- 
mines the  service  to  be  performed  as  follows: 

Outputs  to  the  requesting  terminal  the  con- 
tents of  the  Zeus  system  performance  counters 
via  the  GCOUNT  subroutine. 

Outputs  a specified  portion  of  contiguous 
main  memory  locations  in  hex  character  and 
EBCDIC  format. 

Outputs  the  Zeus  Vector  Table  (ZVT)  in 
(STAM)  format. 

Outputs  the  requesting  terminals  TCB  in 
(STAM)  format. 

Outputs  a list  of  log  on  names  for  the  active 
ports  on  the  system. 

#REGS,  #GENSECT.  #0PENP,  #G0T0,  #CALL,  #CL0SEP 

GCOUNT,  CHTB,  STACK 

630  bytes 

None 

Address  in  R14 
REENTRANT,  TRANSIENT 
Jean  Garneau 
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(STAC) 

(STAM) 

(STAZ) 

(STAT) 

(STAP) 


! 


i 

I 


]• 

i; 


ii 

I 

Ji 


NAME:  WTL 

FUNCTION:  Sends  messages  to  the  WRITE-TO-PROGRAMMER  log. 

INPUT:  R1  -+  (WTL  'message') 

R13  18-word  save  area 
R14  ->  Return  point  address 
R15  -»■  Entry  point  to  WTL 

OUTPUT:  R15  = 0 normal  return 

R15  f if  syntax  error  in  command 

Output  message  to  Zeus  SYSOUT  listing 

PROCESS:  The  WTL  process  is  identical  to  WTO  except  that,  when  the 

OS  WTO  macro  is  executed,  the  MCS FLAGS  field  indicates 
ROUTCDE  = (11). 

ZEUS  MACROS 

USED:  #REGS,  #G0T0 

ROUTINES 

CALLED:  None 

SIZE  IN 

BYTES:  228  bytes 

EXTERNAL 

REFERENCES:  None 

EXIT:  Address  in  R14 


ATTRIBUTES:  Serially  reusable,  TRANSIENT 


i;  WRITTEN  BY:  William  Underhill 

i 


1 

1 

I 

I 

j 
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» 

I 


NAME: 

FUNCTION: 

INPUT: 


OUTPUT: 

PROCESS: 

ZEUS  MACROS 
USED: 

ROUTINES 

CALLED: 

SIZE  IN 
BYTES: 

EXTERNAL 

REFERENCES: 

EXIT: 

AHRIBUTES: 
WRITTEN  BY: 


WTO 

Sends  messages  to  the  operator  console 

R1  -►  (WTO  'message') 

Rll  ^ ZVT 

R13  -»■  18-word  save  area 
R14  -*■  Return  point 
R15  ->  Entry  point  to  WTO 

R15  = normal  return 

R15  ^ if  syntax  error  in  command 

Output  to  operator  console 

WTO  is  a transient  routine  invoked  by  CMNDPRl  when  a WTO 
command  is  encountered.  WTO  scans  the  message  contained 
in  apostrophes,  builds  the  list  form  of  an  OS  WTO  command, 
and  executes  it. 

#REGS,  #G0T0 

None 

208  bytes 
None 

Address  in  R14 

Serially  reusable,  TRANSIENT 
William  Underhill 


i:*i 
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SECTION  3:  SYSTEM  SUPPORT 

The  program  modules  that  perform  system  support  functions  are  listed  as  follows: 


Name 

Function 

ATCHOO 

Create  Zeus  Task 

CHTB 

Convert  hexadecimal  to  bintiry 

CNVTOOO 

Convert  numeric  character  to  binary 

CNTXCTL 

Transfer  control  to  1 of  3 count  modules 

DSPTCHR 

Schedule  all  Zeus  tasks 

ENQCTRL 

Provide  serialized  access  to  any  resource 

FREEMEM 

Release  main  memory 

GETMEM 

Acquire  main  memory 

GETSAVE 

Acquire  a register  save  area 

ICOUNT 

Manipulate  Zeus  counter 

ICOUNTl 

Manipulate  Zeus  counter 

ICOUNT2 

Manipulate  Zeus  counter 

ITIMER 

Manipulate  Zeus  timer  queue 

LDROOOO 

First -level  transient-load  module 

LDROlOO 

Second-level  transient-load  module 

LDR0200 

Third-level  transient-load  module 

MOVEOOO 

Move  data  within  main  memory 

MOVEOlO 

Move  data  and  convert  to  hex  within  main 
memory 

MSCHD 

Interface  to  the  Master  Scheduler 

PROB 

Return  task  to  problem  program  state 

QUEMGR 

Manipulate  queue(s) 

RCVRMGT 

Process  resource  interlock  condition 

SCANKEY 

Hash  key 

SUPV 

Place  task  in  supervisor  state  with  protect  key  0 

TABLES 

Translate  tables  (not  executable  module) 

System  support  concepts  are  described  in  Volume  1,  Chapter  5.  A description  of 
each  subroutine  follows. 


I-;' 

If 


J 


NAME: 

FUNCTION: 

INPUT: 

OUTPUT: 

PROCESS: 


ZEUS  MACROS 
USED: 

ROUTINES 

CALLED: 

SIZE  IN 
BYTES: 

EXTERNAL 

REFERENCES: 

EXIT: 

ATTRIBUTES: 
WRITTEN  BY: 


ATCHOO 

Create  A Zeus  Task 

RO  Address  of  routine  to  attach 

R14  ^ Return  address 

R15  ->  Entry  address  to  ATCHOO 

Attached  Task 

ATTCHOO  is  used  via  the  ^ATTACH  macro  to  create  a Zeus  task. 
After  making  itself  dispatchable,  ATCHOO  BALs  to  the 
specified  routine.  When  this  routine  issues  a #WAIT,  the 
DSPTCHR  will  return  control  to  ATCHOO  which  will,  in  turn, 
return  control  to  the  task  that  issued  the  #ATTACH.  If 
the  attached  task  returns,  it  will  enter  a subroutine  of 
ATCHOO,  which  will  then  call  the  DSPTCHR  with  a special 
code  so  that  the  DSPTCHR  will  never  again  dispatch  this 
task. 


#REGS,  #C0UNT,  #GETMEM,  #WAIT,  #FREMEM 


None 


150  bytes 


ICOUNT,  GETMEM,  DSPTCHR,  FREEMEM 
Address  in  R14 
Reentrant 
J.  Garneau 


NAME: 

FUNCTION: 

INPUT: 


OUTPUT: 


PROCESS : 


ZEUS  MACROS 
USED: 

ROUTINES 

CALLED: 

SIZE  IN 
BYTES: 

EXTERNAL 

REFERENCES: 

EXIT: 

ATTRIBUTES: 
WRIHEN  BY: 


CHTB 

Converts  a hexadecimal  character  string  to  its  equivalent 
binary  value. 

RO  = § of  characters  to  scan  (1-8) 

R1  Start  of  character  string 
Rll  ^ ZVT 

R13  ->  18-word  save  area 
R14  -»■  Return  point 
R15  ->-  Entry  point  to  CHTB 

RO  = Binary  value  of  field 

R1  ->■  Input  character  at  which  processing  terminated 
R15  = 0 normal  return 

= 4 if  scan  limit  (RO)  is  invalid 

CHTB  scans  the  input  string  from  low  to  high  order  positions. 
Each  character  must  be  an  EBCDIC  0-9  or  A-F.  The  character 
is  converted  to  a binary  value  (0-15)  and  added  to  16  times 
the  previous  cumulative  value.  Processing  terminates  when 
a non  0-9,  A-F  character  is  encountered  or  the  scan  limit 
is  reached. 


None 


None 

148  bytes 
None 

Address  in  R14 

Serially  reusable,  TRANSIENT 
William  Underhill 
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NAME: 

FUNCTION: 

INPUT: 


OUTPUT: 


PROCESS: 

ZEUS  MACROS 
USED: 

ROUTINES 

CALLED: 

SIZE  IN 
BYTES: 

EXTERNAL 

REFERENCES: 

EXIT: 

ATTRIBUTES: 
WRIHEN  BY: 


CNVTOOO 

Converts  numeric  character  fields  to  binary. 

R1  ->  Start  of  field 

R13  ->  18-word  save  area 

R14  Return  address 

R15  -f  Entry  point  to  CNVTOOO 

RO  = Value  of  Field 

R1  Nonnumeric  which  terminated  the  field 
R15  = 0 if  RO  is  valid 

0 if  an  error  occurred 

CNVTOOO  scans  the  input  field  for  the  first  non  0-9 
character,  packs  the  resultant  field,  converts  it  to 
binary  and  returns  to  the  caller. 

#REGS 

None 
86  bytes 
None 

Address  in  R14 
Serially  reusable 
J.  Garneau 


NAME: 


CNTXCTL 


FUNCTION: 


INPUT: 


OUTPUT: 

PROCESS: 


ZEUS  MACROS 
USED: 

ROUTINES 

CALLED: 

SIZE  IN 
BYTES: 

EXTERNAL 

REFERENCES: 


EXIT: 

ATTRIBUTES: 


To  transfer  control  to  ICOUNT,  ICOUNT1  or  IC0UNT2 

R15  = base 

1(R14)  = code 

0 - go  to  ICOUNT 

1 - go  to  I COUNT! 

2 - go  to  IC0UNT2 

N/A 

The  one-byte  field  at  R14+1  is  checked  to  determine  to 
which  routine  control  is  to  be  transferred.  The  address 
of  the  appropriate  routine  is  loaded  into  R15  and 
branched  to. 


#G0T0,  #REGS 
None 


52  bytes 


ICOUNTl,  IC0UNT2 
To  address  in  R15 
Serially  reusable 


WRITTEN  BY: 


J.  Garneau 


NAME: 


DSPTCHR 


FUNCTION: 

INPUT: 

OUTPUT: 

PROCESS: 


Distribute  CPU  cycles  to  all  tasks  active  within  the 
ZEUS  partition  or  region. 

R1  -»■  ECB  address  list.  Last  entry  in  list  has  sign  bit  on 

R13  18-word  save  area 

R14  Caller  return  point  address 

R15  ^ Entry  point  of  DSPTCHR 

ECB  address  list  added  to  DSPTCHR  stack  if  copy  does  not 
already  exist  there.  First  byte  of  first  ECB  address 
modified  to  reflect  status  of  list. 

R0  = ECB  posted, 

R15  = Relative  offset  of  posted  ECB. 

Upon  entry,  the  DSPTCHR  first  stores  the  callers'  registers 
in  the  callers'  save  area,  then  checks  the  second  bit  of 
the  control  byte  (first  byte  of  the  first  ECB  address  in 
the  passed  list).  If  the  bit  is  on,  the  list  is  already  in 
the  DSPTCHR  stack.  If  the  bit  is  off,  the  list  is  added  to 
the  stack  and  this  bit  is  turned  on. 

The  add  operation  is  accomplished  by  scanning  the  list  for 
a sign  bit  in  an  ECB  address  word,  checking  for  adequate 
space  1n  the  stack,  and  then  moving  the  list  into  the  stack 
area.  An  entry  is  made  in  an  associated  stack  that  contains 
a count  of  the  ECBs  belonging  to  the  task  and  the  address 
of  the  task's  source  ECB  list. 

After  the  dispatcher  is  certain  the  ECB  list  is  contained 
in  the  stack,  it  moves  the  first  ECB  from  the  source  list 
to  the  first  word  of  the  caller's  save  area.  The  caller's 
save  area  address  is  then  stored  in  the  first  word  of  the 
source  ECB  list,  and  the  third  bit  of  the  control  byte  is 
set  on  to  indicate  that  the  caller  is  "dispatchable. " 

Dispatching  is  done  on  a "round  robin"  basis.  Each  entry 
to  the  DSPTCHR  causes  all  ECBs  in  the  stack  to  be  checked 
for  completion.  The  search  always  begins  with  the  ECB 
following  the  last  one  dispatched.  If  the  end  of  stack  is 
reached  before  all  ECBs  are  checked,  the  search  is 
reinitialized  to  the  top  of  the  stack  and  continues  until 
they  are  all  checked. 

When  an  ECB  is  posted  complete  the  DSPTCHR  searches  the 
stack  to  locate  it.  It  then  retrieves  this  ECBs  register 
save  area,  puts  the  address  of  the  completed  ECB  in 
register  0,  its  offset  into  R15,  reloads  registers  0 to 
14,  and  then  branches  to  the  address  contained  in 
register  14. 


40 


ZEUS  MACROS 
USED: 

ROUTINES 

CALLED: 

SIZE  IN 
BYTES: 

EXTERNAL 

REFERENCES: 

EXIT: 

ATTRIBUTES: 
WRITTEN  BY: 


When  the  entire  list  has  been  searched  without  locating 
any  completed  ECBs,  an  OS  WAIT  macro  is  issued  to  the 
DSPTCHR  ECB  stack. 

#GOTO,  #SET,  #C0UNT 


None 


948  bytes 
I COUNT 

Address  in  R14 
Serially  reusable 
J.  Garneau 
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NAME: 

ENQCTRL 

FUNCTION: 

Provide  serialized  access  to  any  resource. 

INPUT: 

R1  -»■  Resource  Queue  Element  (RQE) 

R1  > 0 IF  ENQ  Request 

< 0 IF  DEQ  Request 

R13  ■>  18-word  save  area 

R14  ->  Return  address 

R15  -»■  Entry  address 

OUTPUT: 

R15  = 0 if  caller  was  given  control  of  the  resource 

R15  ^ 0 if  the  requested  resource  is  currently  in  use 

PROCESS: 

#ENQ  - The  input  RQE  is  added  to  a fifo  ordered  queue 
maintained  by  ENQCTRL.  The  queue  is  ordered  by  the 
second  word  of  the  RQE,  which  has  been  loaded  with 
the  resource  name  as  specified  in  the  #ENQ  macro.  R15 
is  set  depending  upon  whether  or  not  a previous  RQE 
with  the  same  sort  field  (name)  existed. 

#DEQ  - The  specified  RQE  is  removed  from  the  queue.  If 
the  caller  was  first  in  the  queue  for  the  given  resource 
(i.e.,  had  control  of  the  resource),  and  if  the  next 
queue  entry  specifies  the  same  resource  name,  the 
second  entry  is  given  control.  This  is  done  by  posting 
the  ECB  whose  address  is  the  third  word  of  the  RQE. 

ZEUS  MACROS 

USED: 

#FINDZVT,  #REGS,  #GENSECT,  #G0T0,  #QUE,  #QFB 

ROUTINES 

CALLED: 

None 

SIZE  IN 

BYTES: 

219  bytes 

EXTERNAL 

REFERENCES: 

ZEUSSVC,  QUEMGR 

EXIT: 

Address  in  R14 

ATTRIBUTES: 

Serially  reusable 

WRITTEN  BY: 

Jean  Garneau 

I 


^ ■ 


42 


NAME: 

FUNCTION: 

INPUT: 


OUTPUT: 

PROCESS: 


ZEUS  MACROS 
USED: 

ROUTINES 

CALLED: 

SIZE  IN 
BYTES: 

EXTERNAL 

REFERENCES: 

EXIT: 

ATTRIBUTES: 
WRITTEN  BY: 


FREEMEM 

To  return  memory  to  the  ZEUS  pool  or  to  the  OS  pool 

R1  -*■  Memory  to  be  freed 

R1  - 4 = Size  of  memory  to  be  freed 

R14  -»■  Return  address 

R15  ^ Entry  address 

Specified  amount  of  memory  at  specified  address  freed 

The  amount  and  address  of  the  memory  to  be  freed  are 
obtained.  If  the  memory  belongs  to  the  OS  pool,  a 
FREEMAIN  is  issued.  If  it  belongs  to  the  ZEUS  pool,  the 
associated  queue  elements  are  updated.  If  the  memory 
to  be  freed  is  not  on  a double  word  boundary,  an  error 
message  is  sent  to  the  console  prior  to  completing  the 
processing  of  the  request.  Next,  the  core  queue  is 
checked  to  see  if  any  routines  are  waiting  for  memory. 
If  so,  the  requests  are  satisfied,  if  possible,  prior 
to  return. 


#REGS,  #GENSECT,  #FINDZVT,  #G0T0,  #C0UNT 


None 


576  bytes 

ZEUSSVC,  IC0UNT2,  GETMEM 
Address  in  R14 
Serially  reusable 
William  Underhill 


NAME: 

FUNCTION: 

INPUT: 

OUTPUT: 

PROCESS: 


ZEUS  MACROS 
USED: 

ROUTINES 

CALLED: 

SIZE  IN 
BYTES: 

EXTERNAL 

REFERENCES: 

EXIT: 

ATTRIBUTES: 
WRITTEN  BY: 


GETMEM 

To  obtain  memory  for  use  by  ZEUS  routines 
R1  ^ CQE 

RO  = Amount  requested 
R14  •>  Return  address 
R15  -*•  Entry  address 

The  size  of  the  memory  request  is  obtained.  The  ZPOOLA 
field  of  the  ZVT  is  checked  to  see  if  the  ZEUS  pool  is 
available.  If  so,  the  requested  memory  is  gotten  from 
the  ZEUS  pool.  If  unavailable  the  memory  is  gotten  from 
the  OS  pool.  If  memory  cannot  be  gotten— because  none 
is  available,  a pool  is  exhausted,  a limit  reached,  or 
because  of  a boundary  error--an  attempt  is  made  to  free 
a transient  area  to  satisfy  the  request.  If  the  memory 
is  obtained,  it  is  marked  with  the  pool  ID  and  the 
requester's  ECB  is  posted. 


#G0T0,  #REGS,  #GENSECT,  #FINDZVT,  #C0UNT,  #CALL 
QADD,  LDR0200 
573  bytes 

ZEUSSVC,  I COUNT,  IC0UNT2,  SUPV,  LDR0200,  QADD, 
ZMEM,  PROB 

Address  in  R14 

Serially  reusable 

William  Underhill 
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NAME: 


GET5AVE 


FUNCTION:  Acquire  a save  area,  waiting  for  memory  to  become  free 

if  necessary. 

INPUT:  RO  -►  Terminal  control  block  (TCB)  of  active  task 

R1  -►  Size  of  requested  save  area  in  bytes 
R1 1 -V  TCB 

R13  -►  18-word  save  area 

R14  -*■  Return  address 

R15  -►  Entry  address  to  GETSAVE 

OUTPUT:  R1  ->■  Address  of  gotten  memory 

PROCESS:  GETSAVE  is  used  in  conjunction  with  the  #0PENP  macro 

when  TYPE=RENT  and  TCBREG=n-  are  specified.  It  handles 
and  restores  registers  in  a nonstandard  manner.  GETSAVE 
executes  a #GETMEM  macro  for  the  amount  of  memory 
specified  in  R1 , using  a reserved  save  area  (pointed  to  by 
the  TCB)  in  order  to  wait  for  memory  to  become  available 
if  necessary. 

ZEUS  MACROS 

USED:  #GENSECT,  #REGS,  #C0UNT,  #GETMEM 

ROUTINES 

CALLED:  None 

SIZE  IN 

BYTES:  104  bytes 

EXTERNAL 

REFERENCES:  I COUNT,  GETMEM,  DSPTCHR 

EXIT:  Address  in  R14 


i 

I 

i 


I 

j 


NAME: 

FUNCTION: 

INPUT: 

OUTPUT: 

PROCESS: 

ZEUS  MACROS 
USED: 

ROUTINES 

CALLED: 

SIZE  IN 
BYTES: 

EXTERNAL 

REFERENCES: 

EXIT: 

AHRIBUTES: 
WRITTEN  BY: 


I COUNT 

Increments  the  specified  ZEUS  system  performance 
counter  by  1 . 

R14  A one-byte  field  containing  the  counter  number 
and  return  address  - 4 

R15  Entry  address 

R15  = Current  value  of  counter 

The  counter  nun4)er  is  checked  against  the  range  of 
available  counters.  If  invalid,  counter  zero  is  used 
as  an  overflow  counter.  I COUNT  increments  the  specified 
counter  by  1 and  returns  to  the  caller. 


#REGS,  #G0T0 


None 


224  bytes 


I COUNT,  IC0UNT2,  ICOUNTl 
Address  in  R14  + 4 
Serially  reusable 
Jean  Garneau 


NAME: 

FUNCTION: 

INPUT: 

OUTPUT: 

PROCESS: 

ZEUS  MACROS 
USED: 

ROUTINES 

CALLED: 

SIZE  IN 
BYTES: 

EXTERNAL 

REFERENCES: 

EXIT: 

AHRIBUTES: 
WRITTEN  BY: 


I COUNT! 

Adds  a given  number  to  the  specified  ZEUS  counter. 

R1  = Value  to  be  added  to  counter 

R14  ->■  One-byte  counter  number  and  return  address  - 4 

R15  -►  Entry  address 

R15  = Current  value  of  counter 

Same  as  entry  point  I COUNT,  except  that  the  value  of 
R1  is  added  to  the  counter  rather  than  adding  a 1. 

None 

None 
20  bytes 
I COUNT 

Branches  to  I COUNT 
Serially  reusable 
Jean  Garneau 
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NAME: 

IC0UNT2 

FUNCTION: 

Loads  a given  value  Into  the  specified 

ZEUS  counter. 

INPUT:  ] 
OUTPUT:  J 

1 

Same  as  I COUNT! 

PROCESS: 

Same  as  ICOUNTl,  except  that  the  value 
into  the  counter  rather  than  added. 

in  R1  is  loaded 

ZEUS  MACROS 
USED: 

None 

ROUTINES 

CALLED: 

None 

SIZE  IN 
BYTES: 

20  bytes 

EXTERNAL 

REFERENCES: 

I COUNT 

EXIT: 

Branches  to  I COUNT 

ATTRIBUTES: 

Serially  reusable 

WRITTEN  BY: 

Jean  Garneau 
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NAME: 


ITIMER 


FUNCTION: 

INPUT: 


OUTPUT: 

PROCESS: 


lEXIT: 

ITEST: 


To  set,  test,  or  cancel  a tinier  interval,  or  force  a 
previously  set  timer  interval  to  0. 

R1  = Timer  Queue  Element  (TQE) 

RO  = One  of  following  codes: 

0 - Add  TQE  to  queue  (#STIMER) 

4 - Return  interval  remaining  for  this  TQE  (#TTIMER 
remaining) . 

8 - Remove  TQE  from  queue  (#TTIMER  cancel) 

12  - Force  TQE  completion  by  making  current  interval 
0 (#TTIMER  complete) 

R13  ->•  18-word  save  area 

R14  ->  Return  address 

R15  -*•  Entvy  address  ITIMER 

Timer  Queue  processed  as  specified. 

Upon  initial  entry,  which  is  via  an  #ATTACH  to  create  the 
' task,  a branch  is  made  to  IC0MP2.  The  initial  branch 
instruction  is  NOPed.  The  address  of  the  timer  queue 
address  word  (QAW)  is  saved  and  R12,  the  base  for  lEXIT 
.is  saved.  The  following  routines  (which  are  documented 
b6low)  are  branch  and  linked  to  by  this  task  which  never 
terminates:  ILAPSD,  IPOST,  IRESET.  The  completion  bit  in 
the  ECB  is  turned  off  and  I EXIT  is  BALed  to  to  process 
any  queued  exits.  The  entire  process  is  continuously 
repeated. 

Upon  any  entry  subsequent  to  the  initial  one  IC0MP2  is 
not  branched  to.  The  TQE  pointer  and  request  type  are 
saved.  The  address  of  the  QAW  is  obtained.  The  following 
routines,  (which  are  documented  below),  are  BALed  to: 
IDSBL,  ILAPSD,  lENBL.  Upon  return  ITEST  is  branched  to 
if  the  call  was  via  the  #TTIMER  macro  instruction.  If  the 
call  was  via  #STIMER,  lADD  and  IPOST  are  BALed  to.  Upon 
return,  the  completion  bit  in  the  ECB  is  turned  off  and 
IRESET  and  lEXIT  are  BALed  to.  Return  is  made  to  the 
address  in  R14. 

A test  is  made  for  any  queued  exits.  If  there  are  none, 
return  is  made.  If  any,  a message  is  sent  to  the  operator 
and  the  program  terminates  with  an  ABEND  I, DUMP. 

If  the  request  is  for  the  interval  remaining  IPOST  is 
BALed  to,  the  completion  bit  in  the  ECB  is  turned  off, 
IRESET  and  I EXIT  are  BALed  to,  and  return  is  made  via 


IDSBL: 

lENBL: 

ILAPSD: 


I POST: 


lADD: 

I RESET: 

I COMP: 


ZEUS  MACROS 
USED: 

ROUTINES 

CALLED: 

SIZE  IN 
BYTES: 


R14.  If  the  request  is  to  cancel  or  force  to  completion, 
the  interval  is  set  to  0,  the  ECB  or  EXIT  address  is  saved, 
type  = cancel  is  indicated,  I POST  is  branch  and  linked  to, 
the  ECB  or  EXIT  address  is  restored,  the  ECB  completion 
bit  is  turned  off,  I RESET  and  lEXIT  are  BALed  to  and  return 
is  made. 

The  system  mask  is  set  to  disable  interrupts. 

The  system  mask  is  set  to  enable  interrupts. 

This  routine  determines  the  amount  of  time  that  has  elapsed 
since  the  interval  timer  was  activated  and  returns  this 
value  in  R6.  If  the  interval  timer  is  still  active  when 
this  routine  is  called,  it  will  be  deactivated  and  the  time 
left  will  be  used  in  the  computation. 

The  timer  queue  is  gone  through  and  each  TQE  with  an 
interval  remaining  of  0 is  dequeued.  If  the  completion 
address  is  that  of  an  exit  address,  it  is  queued  on  the 
exit  queue;  if  it  is  an  ECB  address,  the  ECB  is  posted;  if 
it  is  zero,  no  action  is  initiated,  and  the  process  con- 
tinues. If  the  remaining  interval  is  greater  than  0,  the 
next  TQE  is  checked.  When  the  end  of  the  queue  is  reached, 
return  is  made  via  Rll. 

This  routine  puts  a TQE  into  the  timer  queue.  The  contents 
of  R6  (elapsed  time)  are  added  to  the  TQE  value  (in  timer 
units) . 

This  routine  obtains  the  address  of  the  first  TQE,  if 
any  on  queue,  saves  the  current  interval,  resets  the 
interval  timer  (via  STIMER  macro),  turns  on  the  low  order 
bit  of  the  QAW,  and  returns. 

This  routine  is  entered  from  OS  when  the  interval  timer 
completes.  The  registers  are  saved,  and  the  low  order  bit 
of  the  QAW  is  set  to  0 to  show  that  the  timer  is  down. 

The  time  of  day  in  timer  units  is  obtained  (via  TIME  macro) 
and  saved.  The  timer  ECB  is  posted  complete  to  allow  the 
timer  to  be  restarted.  The  registers  are  restored,  and 
return  is  made. 


#REGS,  #0PENP,  #G0T0,  #SET,  #CL0SEP,  #CALL,  #C0UNT,  #WAIT 
QADD,  PROB,  SUPV 
664  bytes 
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EXTERNAL 

REFERENCES: 


ICOUNT,  SUPV,  PROB,  QADD,  DSPTCHR 
To  address  in  R14 


EXIT: 

ATTRIBUTES:  Serially  reusable 

WRITTEN  BY:  Jean  A.  Garneau 


NAME: 

FUNCTION: 

INPUT: 


OUTPUT: 


PROCESS: 


ZEUS  MACROS 
USED: 

ROUTINES 

CALLED: 

SIZE  IN  BYTES: 

EXTERNAL 

REFERENCES: 

EXIT: 

ATTRIBUTES: 


LDROOOO 

Called  by  the  #LOAD  macro  to  obtain  the  memory  address  of 
a transient  module  if  available.  Also  called  by  #DELETE 
macro  to  relinquish  control  of  a module. 

RO  -►  8-byte  name  of  module  requested 

R1  = Address  of  three-word  load  request  block  (LRB) 

= 0 if  no  LRB  specified  with  #L0AD  macro 
= 1 if  called  by  #DELETE  macro 
R9  - TABENTRY  Table 
R13-^  18-word  save  area 
R14-^  Return  address 
R15^  Entry  address 

R15=  Address  of  module  if  called  by  #L0AD 
= 0 if  module  not  available 
= 4 normal  return  from  #DELETE  processing 
= -1  if  module  not  available  and  load  request  block 
was  added  to  the  queue  of  modules  to  be  loaded. 
Indicates  that  a #WAIT  must  be  issued. 

#L0AD  - LDROOOO  seeks  the  requested  name  in  a transient 
module  table.  If  the  module  is  available  in  memory,  its 
responsibility  count  is  incremented  and  the  address  is 
returned  to  the  caller.  If  the  module  exists  but  is  not 
available,  the  request  is  queued  only  if  an  LRB  was  speci- 
fied with  the  #L0AD  macro.  A BLDL  macro  is  issued  on  the 
ZEUS  transient  module  PDS  if  the  module  is  not  found  in 
the  name  table  (i.e.,  for  the  first  load).  #DELETE  - The 
module  is  found  in  the  transient  module  table  and  its 
responsibility  count  is  decremented. 


#REGS,  #0PENP,  #G0T0,  #CALL,  #CL0SEP,  #C0UNT,  #QUE,  #QFB 
QADD 

1740  bytes 

ICOUNT,  TFILE,  LRBQ,  QUEMGR,  LDRECB 
Address  in  R14 
SERIALLY  REUSABLE 


WRITTEN  BY: 


W.  Underhill 


NAME: 


LDROlOO 


FUNCTION:  Loads  requested  transient  modules  into  memory  and  posts 

the  associated  requesting  tasks. 

INPUT:  R9  ^ TABENTRY  Table 

R13  ->  18-word  save  area 
R15  ->  Entry  address 

OUTPUT:  Loaded  Modules 

PROCESS:  LDROlOO  is  attached  during  Zeus  initialization  and 

immediately  waits  on  a "no-work"  ECB.  When  the  no-work 
ECB  is  posted,  LDROlOO  de-queues  the  first  LRB  on  the 
LRB  chain,  allocates  memory  for  the  module,  issues  a 
point  macro  on  the  transient  file  PDS,  reads  the  module 
into  memory,  and  posts  the  associated  ECB  with  the  module's 
address.  The  module's  length  and  TTR  are  found  in  the 
transient  module  table.  LDROlOO  repeats  this  process  for 
each  LRB  on  the  queue.  When  finished  it  waits  on  its  no- 
work ECB. 

ZEUS  MACROS 

USED:  #RE6S,  #0PENP,  #WAIT,  #G0T0,  #C0UNT,  #QUE,  #QFB 

ROUTINES 

CALLED:  None 

SIZE  IN 

BYTES:  472  bytes 

EXTERNAL 

REFERENCES:  ICOUNT,  TFILE,  DSPTCHR,  GETMEM,  FREEMEM,  QUEMGR 

EXIT:  N/A 

ATTRIBUTES:  Attached  Task 


WRITTEN  BY:  William  Underhill 


LDR0200 


NAME: 

FUNCTION: 


INPUT: 


OUTPUT: 


PROCESS: 


ZEUS  MACROS 
USED: 

ROUTINES 

CALLED: 

SIZE  IN 
BYTES: 

EXTERNAL 

REFERENCES: 


EXIT: 

ATTRIBUTES: 
WRITTEN  BY: 


Frees  the  memory  being  occupied  by  one  or  all  transient 
modules  that  are  not  currently  in  use. 

R1  =0  Free  all  unused  modules 

= n>0  Free  the  least  recently  used  module  of  size 
n or  greater. 

R9  ->  TABENTRY  Table 

R13  ^ 18-word  save  area 

R14  ^ Return  address 

R15  Entry  address 

R15  = 0 If  memory  freed 

^0  If  no  memory  could  be  freed. 

LDR0200  scans  the  transient  module  table  for  modules  with 
a zero  responsibility  count.  If  R1  =0  the  memory  occupied 
by  each  such  module  is  freed.  If  R1  = n>0  each  unused 
module's  size  is  checked.  When  the  table  scan  terminates, 
the  least  recently  used  module  (as  indicated  by  a time 
stamp  field)  of  sufficient  size  (if  any)  is  freed. 


#REGS,  #G0T0,  #FREEMEM 
NONE 


254  bytes 

NUMMOD,  MODTAB,  FREEMEM 
Address  in  R14 
SERIALLY  REUSABLE 
W.  Underhill 
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NAME: 


MOVEOOO 


I 


FUNCTION:  MOVEOOO  moves  data  (1  to  32767  bytes)  from  one  location 

to  another. 

INPUT:  RO  •>  Source  Area 

R1  -+  Target  Area 

R14  -»■  2-byte  length  field,  R14  + 2 ->■  return  address 
R15  -►  Entry  address  to  MOVEOOO 

OUTPUT:  R1  = Address  of  last  input  byte  + 1 

R15  = 0 Normal  return 
R15  t 0 if  input  length  <=0 

PROCESS:  Data  are  moved,  left  to  right-,  for  the  length  specified. 

ZEUS  MACROS 

USED:  #REGS,  #G0T0 

ROUTINES 

CALLED:  NONE 

SIZE  IN 

BYTES:  100  bytes 

EXTERNAL 

REFERENCES:  NONE 

EXIT:  Address  in  R14  + 2 

ATTRIBUTES:  SERIALLY  REUSABLE 

WRIHEN  BY:  J.  Garneau 


1 


NAME: 

MOVEOlO 

FUNCTION: 

MOVEOlO  converts  each  input  byte  to  two  output  hex 
character  bytes. 

INPUT: 

RO  -*■  Source  Area 

R1  ■+  Target  Area 

R14  2-byte  length  field 

R15  + 2 -*•  return  address 

R15  Entry  address  to  MOVEOlO 

OUTPUT: 

R1  = Address  of  last  input  byte  + 1 

R15  = 0 normal  return, 

R15  = 4 if  input  length  <2 

PROCESS : 

Each  input  byte  is  converted  to  its  hexi decimal  two-byte 
equivalent.  These  bytes  are  stored  in  the  target  area. 
The  length  specified  is  that  of  the  target  area.  Conse- 
quently, the  number  of  source  area  bytes  converted  is 
equal  to  one-half  the  length  (in  bytes)  value  specified. 
The  length  is  rounded  down,  if  necessary,  to  an  even 
number  before  conversion. 

ZEUS  MACROS 

USED: 

#REGS 

ROUTINES 

CALLED: 

None 

SIZE  IN 

BYTES: 

156  bytes 

EXTERNAL 

REFERENCES: 

None 

EXIT: 

Address  in  R14  + 2 

ATTRIBUTES: 

Serially  Reusable 

WRITTEN  BY:  Jean  Garneau 
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NAME: 

% 

MSCHD 

FUNCTION: 

MSCHD  passes  cottmands  to  the  OS  or  VS  Master  Scheduler. 

INPUT: 

R1  ■>  Command 

R13  18-word  save  area 

R14  ^ Return  address 

R15  ■>  Entry  address  to  MSCHD 

OUTPUT: 

Command  sent  to  OS  or  VS. 

PROCESS : 

The  input  string  is  scanned  for  an  asterisk  or  ETX  charac- 
ter, which  defines  the  end  of  the  string.  MSCHD  then 
enters  supervisor  state  and  protect  key  0 and  issues  SVC 

34  to  pass  the  command  to  the  Master  Scheduler.  If  the 
sign  bit  is  on  in  R1  at  entry,  the  command  is  also  written 
on  the  operator's  console. 

(NOTE:  Command  must  be  of  format  '(//y*'  where  y is  an 
acceptable  OS  or  VS  command.) 

ZEUS  MACROS 

USED: 

#REGS,  #0PENP,  #LPSW,  #CL0SEP 

ROUTINES 

CALLED: 

None 

SIZE  IN 

BYTES: 

326  bytes 

EXTERNAL 

REFERENCES: 

None 

EXIT: 

Address  in  R14 

ATTRIBUTES: 

Serially  reusable,  TRANSIENT 

WRITTEN  BY: 

Jean  Garneau 
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NAME: 


PROS 


FUNCTION: 


INPUT: 


OUTPUT: 

ZEUS  MACROS 
USED: 

ROUTINES 

CALLED: 

SIZE  IN 
BYTES: 

EXTERNAL 

REFERENCES: 

EXIT: 


Returns  the  Zeus  system  to  problem  program  state  and 
restores  its  assigned  protect  key. 

R13  = Base 

R14  Return  address 
R15  ->  Entry  address  to  PROB 

Task  in  Problem  State 


#G0T0,  #LPSW,  #REGS 


73  bytes 


ZEUSSVC 

Address  in  R14 


ATTRIBUTES:  SERIALLY  REUSABLE 

WRITTEN  BY:  W.  Underhill 
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NAME: 


QUEMGR 


FUNCTION: 

INPUT: 

OUTPUT: 

PROCESS: 


QUEMGR  is  used  to  add/insert,  delete,  or  locate  an  element 
on  a queue. 

RO  -*■  Queue  Foundation  Block  (QFB) 

R1  -*•  Element  or,  if  ID  specified,  4-character  ID. 

R14  ->  Argument  and  return  address  (-4) 

R15  •>  Entry  point  to  QUEMGR 

R1  Element  deleted  or  located 

Element  chained  onto  queue  if  ADD,  removed  from  queue  if 
DELETE. 

R15  = Count  of  elements  with  identical  ordering  strings 
TYPE  = (FIFO, ORDERED. . .)  specified  otherwise  R15  not 
relevant. 

I 

The  type  of  QFB  is  saved.  A check  is  made  to  determine 
if  the  element  to  be  processed  is  to  go  to  either  the 
top  or  bottom  of  an  ordered  queue.  If  so,  the  argument 
byte  is  saved.  If  the  element  is  to  be  added  to  an 
unordered  queue,  a branch  is  made  to  this  routine.  The 
address  of  the  last  element  on  the  queue  is  obtained  from 
the  QFB.  The  address  of  the  previous  element  is  obtained 
from  the  next  address  field  of  the  last  element.  The 
address  of  the  new  element  is  stored  in  the  last  element 
field  of  the  QFB  and  the  previous  last  element  address  is 
stored  in  the  new  last  element  link  word. 

If  the  element  is  to  be  added  to  an  ordered  queue,  bits  1 
and  2 of  the  type  field  of  the  QFB  are  used  to  set  the 
mask  bits  of  a branch  instruction  that  tests  for  a high  or 
low  compare  condition.  The  queue  to  which  the  element  is 
to  be  added  is  searched  until  equal  IDs  are  found  at  which 
time  it  is  determined  whether  it  is  a FIFO  or  LIFO  opera- 
tion. If  FIFO,  the  element  is  added  to  the  bottom  of  the 
queue  of  elements  with  the  same  ID;  if  LIFO,  it  is  added 
to  the  top.  In  either  case,  the  address  chains  are 
updated  by  storing  the  address  of  the  next  element  in  the 
current  element  and  the  address  of  the  last  element  on 
the  queue  in  the  QFB. 

If  the  element  is  to  be  located  or  deleted,  a check  is  made 
to  determine  if  the  search  is  to  be  made  on  ID.  If  so,  the 
proper  pointer  is  adjusted  and  the  search  is  conducted  in 
the  same  manner  as  that  for  addition  to  an  ordered  queue. 
When  the  correct  element  is  found,  the  chain  address  is 
updated  by  storing  the  address  of  the  next  element  in  the 
next  address  field  of  the  previous  element.  The  last 
element  field  of  the  QFB  is  updated  if  necessary. 
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! 


h 


ZEUS  MACROS 
USED: 


ROUTINES 

CALLED: 


If  the  search  is  to  be  made  by  element  rather  than  ID, 
the  queue  is  searched  until  the  correct  element  is  found, 
at  which  time  it  is  deleted  by  updating  the  next  element 
address  field  of  the  previous  element  and  the  last  element 
field  of  the  QFB  if  necessary. 


Bits  in  the  argument  field  and  their  meanings  are  as  follows: 


The  structure  of  elements  in  all  queues  is  as  follows; 
< word > 


0 

+4 

+8 


Status 


Link  field 


Identification  (optional) 


Optional  data  area  (n  bytes) 


For  details  on  individual  fields  see  element  descriptions 
by  type  in  Chapter  3,  Section  2. 

The  structure  of  all  QFBs  are  as  follows: 

< word > 

0 


+4 

+8 

+12 


Status 

First  element  on  queue 

Type 

Last  element  on  queue 

Count 

Reserved 

Option  data  area  (n  bytes) 

For  details  on  the  STATUS  and  TYPE  fields,  see  Chapter  3, 
Section  1 . 


#REGS,  #G0T0,  #SET 


None 
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Bits 

Argument 

!•••  •••• 

delete/locate  ID  equal 

•••• 

delete/ locate  ID  low 

•••• 

delete/locate  ID  high 

•••• 

delete/ locate  ID  equal  or  low 

•••• 

delete/locate  ID  equal  or  high  i 

•••1  »••• 

delete/ locate/add  to  top  of  queue  ^ 

••••  !••• 

delete/locate/add  to  bottom  of  queue 

•••• 

delete  ' 

•••• 

locate  j 

1 

ID  specified  j 

■ I 


SIZE  IN 

BYTES: 

354  bytiBS 

EXTERNAL 

REFERENCES: 

None 

EXIT: 

To  address  in  R14  + 4 

AHRIBUTES: 

Serially  reusable 

WRITTEN  BY: 

Jean  Garneau 
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RCVRMGT 


NAME: 

FUNCTION: 

INPUT: 


OUTPUT: 

PROCESS: 


ZEUS  MACROS 
USED: 


ROUTINES 

CALLED: 

SIZE  IN 
BYTES : 

EXTERNAL 

REFERENCES: 


EXIT: 

ATTRIBUTES: 
WRITTEN  BY: 


RCVRMGT  attempts  to  diagnose  and  correct  memory  request 
interlocks . 

R13  ->  18-word  save  area 

R14  ->  return  address 

R15  ^ entry  address  of  RCVRMGT 

None 

RCVRMGT  is  attached  as  a Zeus  task.  It  normally  waits  on 
an  interval  timer  (currently  set  at  1 second).  At  the 
completion  of  each  interval,  when  RCVRMGT  gains  control, 
it  checks  the  memory  wait  queue.  If  the  queue  is  empty, 
it  reissues  the  #STIMER  macro  and  waits  for  the  next 
interval  to  complete.  If  the  queue  is  non-empty,  the 
first  entry  is  checked  for  a X'FF'  mark.  If  absent, 

RCVRMGT  marks  the  entry  with  X'FF'  and  #STIMERS.  If  the 
mark  is  present,  the  queue  entry  has  been  on  the  queue 
since  the  last  interval  expired  and  a memory  interlock 
is  assumed  to  have  occurred.  RCVRMGT  sets  a bit  indicating 
that  the  OS  memory  pool  is  to  be  used  rather  than  the  Zeus 
subpool  and  calls  FREEMEM  to  attempt  to  allocate  memory  to 
the  waiting  tasks. 


#0PENP,  #REGS,  #GENSECT,  #FINDZVT,  #STIMER,  #G0T0,  #C0UNT, 
#SET 


None 


316  bytes 

ZEUSSVC,  ITIMER,  ICOUNT,  DSPTCHR,  LDR0200,  FREEMEM. 
N/A 

Serially  reusable 
Jean  Garneau 
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NAME: 

SCANKEY 

FUNCTION: 

To  hash|a  character  string  into  a relative  record  number. 

INPUT: 

R1  -*■  beginning  of  character  string. 

R13  -*■  18-word  save  area. 

R14  ->■  Return  address. 

R15  ^ Entry  address  to  SCANKEY. 

OUTPUT: 

R15  = relative  record  number. 

R1  -►  Edited  character  string  used  in  hash  operation. 

PROCESS : 

The  input  character  string  is  scanned  until  an  ETX  is 
encountered  or  for  a maximum  of  40  bytes.  All  blanks 
and  special  characters  are  removed.  The  input  character 
string  is  replaced  with  the  edited  character  string  (the 
KEY).  The  first  four  bytes  of  the  key  are  logically  added 
to  the  second  four  bytes  and  this  total  is  logically 
added  to  the  third  four  bytes.  This  number  is  made  posi- 
tive and  divided  by  1193.  The  result  is  the  relative 
record  number  that  is  loaded  into  R15. 

ZEUS  MACROS 

USED: 

#REGS,  #0PENP,  #CL0SEP 

ROUTINES 

CALLED: 

None 

SIZE  IN 

BYTES: 

286  bytes 

EXTERNAL 

REFERENCES: 

None 

EXIT: 

Address  .in  R14 

« 

ATTRIBUTES: 

Serially  Reusable,  TRANSIENT 

WRIHEN  BY: 

D.  Shuford 
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NAME: 

FUNCTION: 

INPUT: 


OUTPUT: 

ZEUS  MACROS 
USED: 

ROUTINES 

CALLED: 

SIZE  IN 
BYTES: 

EXTERNAL 

REFERENCES: 

EXIT: 

ATTRIBUTES: 
WRITTEN  BY: 


SUPV 

Places  the  task  in  supervisor  state,  protect  key  zero 

R13  ->  18-word  save  area 
R14  ^ Return  address 
R15  ■>  Entry  point 

None 

#REGS.  #G0T0,  #LPSW 
None 
56  bytes 
ZEUSSVC 

Address  in  R14 
Serially  Reusable 
W.  Underhill 
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NAME: 


TABLES,  ENTRY^ETL,  LTE,  ATE,  ETA 


FUNCTION: 


To  provide  translate  tables  for  use  by  Zeus  routines. 

The  tables  provided  are: 

ETL  EBCDIC  to  1050  line  code. 

LTE  1050  line  code  to  EBCDIC. 

ATE  ASCII  to  EBCDIC. 

ETA  EBCDIC  to  ASCII 

CTLTAB 

The  tables  have  been  modified  as  follows: 

ETL 

Upper  case  letters  changed  to  lower  case. 

Carriage  return  changed  to  null. 

Horizontal  tab  changed  to  restore. 

Vertical  tab  changed  to  bypass. 

Home  changed  to  end  of  addressing. 

End  of  transmission  changed  to  end  of  block. 

End  of  test  changed  to  end  of  block. 

Dot  (.)  changed  to  space. 

Back  slash  changed  to  reader  stop. 

Up  arrow  changed  to  punch  on. 

Left  arrow  changed  to  punch  off. 

LTE 

Lower  case  letters  changed  to  upper  case. 

End  of  addressing  changed  to  null. 

End  of  block  changed  to  end  of  text. 

Space  changed  to  dot  (.). 

Idle  changed  to  idle  (ASCII). 

Bypass  changed  to  idle. 

Restore  changed  to  idle. 

Null  changed  to  carriage  return. 

Reader  stop  changed  to  back  slash. 

Punch  on  changed  to  up  arrow. 

Punch  off  changed  to  left  arrow. 

All  modifications  (LTE)  are  made  to  both  upper  and 
lower  case  control  characters. 


T 

t; 


f 

); 

i . 

f' 

3 

I 

)i 

f: 

t. 


i'i 

il 


i 


INPUT: 

OUTPUT: 

PROCESS: 

ZEUS  MACROS 
USED: 

ROUTINES 

CALLED: 

SIZE  IN 
BYTES: 

EXTERNAL 

REFERENCES: 

EXIT: 

ATTRIBUTES: 
WRIHEN  BY: 


N/A 

N/A 

N/A 

I 

None 

None 

1 ,024  bytes 

None 

N/A 

Read  Only 
Doris  Shuford 
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^ECTION  4:  INITIALIZATION 

The  Zeus  initialization  programs  are  presented  in  the  following  list: 


Name 

Function 

INITO 

Open  files,  load  external  processors,  and  link 
to  INITl 

INITl 

Process  Zeus  parameter  cards,  attach  tasks,  create 
control  blocks,  and  transfer  control  to  INIT2 

IN1T2 

Create  Zeus  main  memory  pool  and  return  control 
to  INITO 

The  initialization  process  is  described  in  Volume  1,  Chapter  6.  A description  of  each 
subroutine  follows. 


NAME: 

FUNCTION: 

INPUT: 


OUTPUT: 

PROCESS: 


ZEUS  MACROS 
USED: 

ROUTINES 

CALLED: 

SIZE  IN  BYTES: 

EXTERNAL 

REFERENCES: 

EXIT: 

ATTRIBUTES: 
WRITTEN  BY: 


INITO 

First-level  Zeus  initiation. 

R1  ->  External  Processor  Name 

R13  -»■  18-word  save  area 

R14  ■>  Re^rn  point  address 

R15  ->  Entry  point  address  to  INITO 

Open  files,  and  loaded  external  processor(s) . 

INITO  first  interrogates  the  parm  field  as  passed  via 
register  1.  If  a name  is  present,  it  is  assumed  to  be 
an  external  processor  name  and  an  attempt  is  made  to 
load  it.  If  no  external  processor  is  requested,  a dummy 
external  processor  is  loaded.  INITO  then  obtains  the 
address  of  the  ZVT  and  from  it  gets  a list  of  DCBs  to 
open,  which  it  does  next.  Finally,  it  links  to  INITl. 

Upon  return,  INITO  initializes  the  external  processor(s) . 


#0PENP,  #GENSECT,  #G0T0,  RPSW,  #C0UNT,  #CL0SEP,  #FINDZVT, 
#SET,  #WAIT 

None 

I , 704  bytes 

IC0UNT2,  DDMOSNOl,  GETSAVE,  ZEUSSVC 

Address  in  R14 

REENTRANT 

J.  Garneau 


I 


68 


NAME: 

FUNCTION: 

INPUT: 


OUTPUT: 


PROCESS: 


ZEUS  MACROS 
USED: 

ROUTINES 

CALLED: 

SIZE  IN 
BYTES: 

EXTERNAL 

REFERENCES: 

EXIT: 

ATTRIBUTES: 
WRITTEN  BY: 


i 


INITl 

Read  Zeus  parameter  cards  and  create  control  blocks,  and 
ATTACH  tasks  which  will  be  required  for  operation. 

R1  ->•  parameter  list 
R13  ^ 18-word  save  area 
R14  return  address 
R15  -<■  Entry  point  to  INITl 
Zeus  parameter  cards 

The  following  tasks  ATTACHed: 

ZITIMER  - interval  timer  (1) 

ZRJEOlOO  - reader  interpreter  (1) 

ZWTROOO  - writer  (1) 

ZRCVRMGT  - recovery  management  (1) 

ZLDROlOO  - transient  loader  (1) 

2LINEI0  - line  (1  per  line) 

ZTERMIO  - terminal  (1  per  terminal) 

The  following  control  blocks  created: 

TCB  - Task  control  block  (1  per  terminal) 

LCB  - Line  control  block  (1  per  line) 

PAL  - Polling/Addressing  list  (1  per  line) 

SYSIN  is  OPENed  and  the  required  tasks  ATTACHed.  The 
parameter  cards  are  read  and  the  amount  of  main  storage 
to  be  RESERVED,  ALLOCATED,  or  LIMITED  is  determined.  This 
value  isistored  in  the  ZPOOLA  field  of  the  ZVT.  The  line 
and  terminals  that  are  to  be  used  are  determined  and  the 
necessary  control  blocks  created.  When  all  parameter  cards 
have  been  processed  SYSIN  is  CLOSED  and  control  is  trans- 
ferred to  INIT2. 


#0PENP,  #GENSECT,  #REGS,  #FINDZVT,  #WAIT,  #LPSW,  #G0T0, 
#ATTACH,  #Sn,  #GETMEM 


None 


1 ,832  bytes 


None  f 
1NIT2 

Serially  reusable 
Jean  Garneau 
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NAME: 

FUNCTION: 

INPUT: 


OUTPUT: 

PROCESS: 


ZEUS  MACROS 
USED: 

ROUTINES 

CALLED: 

SIZE  IN 
BYTES: 

EXTERNAL 

REFERENCES: 

EXIT: 

ATTRIBUTES: 
WRITTEN  BY: 


INIT2 


Determines  the  type  of  memory  allocation  scheme  to  be  used 
by  Zeus. 

R1  parameter  list 
R13  18-word  save  area 
R14  -*■  Return  address 
R15  Entry  point  to  INIT2 

ZPOOLA  field  of  ZVT  updated. 

ZPOOLA  word  of  the  ZVT  is  interrogated.  If  ALLOCATE  was 
specified,  memory  is  acquired  and  structured  into  a Zeus 
Pool.  If  RESERVE  was  specified,  memory  is  reserved  for  OS 
and  what  remains  is  structured  into  a Zeus  Pool.  If  LIMIT 
or  no  parameters  was  specified,  no  Zeus  Pool  is  structured. 
The  ZPOOLA  word  of  the  ZVT  before  and  after  INIT2  is  as 
follows: 

Before: 

Byte  1 bit  0 ALLOCATE 

1 RESERVE 

2 LIMIT 

Bytes  2-4  value 

After: 

Byte  1 bit  0 No  Zeus  Pool 

bit  1 Limit  specified 

Bytes  2-4  Address  of  Zeus  pool  or  limit  value 

or  zero. 


#0PENP,  #REGS,  #FINDZVT,  #G0T0,  #CL0SEP,  #SET 


None 


396  bytes 


ZEUSSVC 

Address  in  R14 
Serially  reusable 
Jean  Garneau 
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Chapter  2 

MACROS 


Several  macros  have  been  created  to  reduce  the  amount  of  detail  coding  required  to 
use  Zeus  functions.  A number  of  these  macros  can  be  considered  general  purpose  since 
they  may  be  used  in  any  environment.  Some  may  be  used  after  careful  consideration  of 
the  effect  of  execution,  and  some  may  be  used  only  within  a system  built  on  Zeus 
components  and  architecture. 

A summary  listing  of  available  macros  is  contained  in  Table  1.  Column  3 of  the 
table  indicates  the  level  of  utility  of  the  individual  macros.  The  symbols  and  notations 
used  to  represent  macro  syntax  are  presented  in  Figure  3.  A description  of  each  macro 
follows. 


Table  1 
Macros 


Name 

Function 

Use^ 

#ATTACH 

Create  a Zeus  Task 

3 

#CALL 

Call  a subroutine 

1 

#CLOSEP 

Close  program  and  return  to  caller 

1 

#CONVRT 

Convert  data  from  one  format  to  another 

1 

#COUNT 

Accumulate  statistics 

2 

#DELETE 

Delete  Transient  Module 

3 

#DEQ 

Release  resource  from  exclusive  control 

2 

#ENQ 

Acquire  resource  for  exclusive  control 

2 

#FINDZVT 

Locate  Vector  T able 

2 

#FREEMEM 

Release  main  memory 

2 

#GENSECT 

Generate  Label  Map 

3 

#GETMEM 

Acquire  main  memory 

2 

#GOTO 

Execute  conditional  branch 

1 

#LDREG 

Load  register 

1 

#LOAD 

Load  transient  module 

3 

#LPSW 

Load  program  status  word 

2 

#MOVE 

Move  data  with/without  translate 

1 

#OPENP 

Open  program 

1 

#QFB 

Generate  queue  foundation  block 

1 

#QUE 

Process  Queue 

1 

#REGS 

Register  symbol  generation 

1 

#SET 

Set  bit(s)  on/off/invert 

1 

#STIMER 

Set  interval  timer 

2 

#TTIMER 

Test  interval  timer 

2 

#WAIT 

Wait  for  event  completion 

3 

#ZEUSSVC 

Execute  Zeus  SVC 

2 

**1  ' General  Use 

2 ■=  Restricted  Use 

3 = Zeus  only 
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Macro  Coding  Key 


Symbol 

Upper-Case 

Characters 

lower-case 

characters 


[ ] 


address 


address-sym 


register 


Meaning 


Code  exactly  as  shown. 

Replace  as  instructed. 

Optional  argument. 

Select  one  option  from  stack.  An  underlined  option  will 
be  defaulted  if  the  argument  is  omitted.  If  no  option  is 
underlined,  the  argument  cannot  be  omitted  unless  the 
entire  argument  is  enclosed  within  brackets. 

Any  address  valid  in  an  'LA'  instruction;  a symbol  valid 
in  an  'A'  or  'V'  type  address  constant;  or  (r),  2 < r < 12, 
given  the  address  is  available  in  the  register  specified. 

Any  symbol  valid  within  an  'A'  or  'V'  type  address 
constant. 

General  purpose  register  0-15  enclosed  within  parentheses. 
General  purpose  register  2-12,  parentheses  optional. 

One  or  more  alphanumeric  characters. 

Figure  3 


#ATTACH 


#ATTACH  — Create  a Zeus  Task 


The  #ATTACH  macro  provides  a facility  whereby  one  task  can  create 
another  task. 


[label] 

EPADDR=addressj 

#ATTACH 

name— char  I [,PARAM=address] 

,(r)  ) 

label 


specifies  the  address  of  the  first  executable  instruction  generated 
by  the  macro. 


EPADDR=address 

the  address  of  a word  in  main  storage  where  the  address  of  the 
routine  being  attached  is  stored. 


name 


code  a character  string  from  1 to  8 characters  which  identifies  the 
routine  to  be  attached.  The  name  must  satisfy  the  requirements  of  a 
V-type  address  constant. 


(r) 


replace  r with  a register  that  has  previously  been  loaded  with  the 
address  of  the  routine  being  attached. 


PARAM=address 

The  address  that  will  be  passed  to  the  attached  task  via  register  1. 
If  omitted,  register  1 will  be  passed  unaltered. 


Registers  Altered:  0,  14  and  15 
External  References:  ATCHOO 
Written  by:  J.  Garneau 


#CALL 


#CALL  --  Call  subroutine 


The  #CALL  macro  provides  a mechanism  for  transferring  control  to 
another  module. 


[label] 

fEPADDR=address  \ 

#CALL 

1 name-char  [,  RES0LVE=L0CAL]} 
l(r)  j 

label 

specifies  the  address  of  the  first  executable  instruction  generated 
by  the  macro. 


EPADDR=address 

The  address  of  a word  in  main  storage  where  the  address  of  the 
routine  being  called  is  stored. 


name-char 

code  a character  string  from  1 to  8 characters  which  identifies  the 
routine  to  be  called.  The  name  must  satisfy  the  requirements  of  a 
V-type  address  constant. 


RES0LVE=L0CAL 

code  this  parameter  to  override  the  effect  of  the  'RlSOL\/E=^CALL' 
parameter  of  the  #GENSECT  macro.  The  override  is  in  effect  during 
the  expansion  of  this  macro  only.  If  the  #GEMSECT  macro  option  has 
not  been  selected  during  this  assembly,  'RES0LVE=L0CAL'  is  the 
default.  For  additional  details  see  the  #GENSECT  macro  description 
in  this  document. 


(r) 


replace  r with  a register  that  has  previously  been  loaded  with  the 
address  of  the  routine  being  called. 


Registers  Altered:  14,  15 
Written  by:  J.  Garneau 
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#CLOSEP 


#CLOSEP  — Close  Program/Subroutine  and  Return  to  Caller 

The  #CL0SEP  macro  release  save  areas, ^ restores  all  (0-15) 
registers,  and  returns  to  the  caller. 


'[label]  #CL0SEP  [RC= 


] [.RET=jy-§5}]  [,SAREA=address] 


label 


specifies  the  label  of  the  first  executable  instruction  generated 
by  the  macro. 


value 


a value  (0  to  4095)  or  a register  that  contains  a value  ) 

that  will  be  loaded  into  register  15  before  return  is  made.  If 
omitted,  return  is  made  with  register  15  unaltered. 


If  YES  is  coded  or  the  parameter  omitted,  an  unconditional  branch 
to  the  address  contained  in  register  14  will  be  made  after  SAVE 
areas  have  been  freed,  and  registers  0-15  are  restored.  If  NO  is 
coded,  no  branch  will  be  made. 


SAREA=address 


The  address  of  the  save  area  from  which  registers  0-15  should  be 
loaded.  Registers  are  loaded,  14  through  12,  starting  with  the  third 


^Save  areas  dynamically  acquired  by  the  #0PENP  macro  will  be  freed 
automatically  by  #CL0SEP.  The  size  of  the  save  area  freed  in  such 
a case  is  determined  by  the  #0PENP,  which  physically  precedes  this 
#CL0SEP  in  the  assembly  not  the  #0PENP,  which  may  possibly  precede 
it  "logically." 


word  of  the  save  area.  If  this  parameter  is  omitted,  the  address  of 
the  save  area  from  which  the  registers  are  to  be  loaded  is  assumed 
to  be  stored  in  a word  that  is  addressed  by  adding  4 to  the  current 
contents  of  register  13  (note:  this  is  standard  OS  convention  and  is 
compatible  with  the  #0PENP  macro). 


Registers  Altered:  See  'RC='  option 
Written  by:  J.  Garneau 


#CONVRT 


#CONVRT  — Convert  Data  From  One  Format  to  Another 


The  #C0NVRT  macro  instruction  is  used  to  reduce  numeric  character 
strings  of  unknown  length  to  binary  values  or  to  expand  binary  values 
to  "edited"  numeric  character  strings. 

Convert  to  binary  requires  a character  string  address  and  a scan 
limit  value.  The  character  string  is  scanned  left  to  right  (within  the 
limit  imposed)  for  a nonblank  character.  The  scan  continues  from  that 
point  until  either  a nonnumeric  character  is  encountered  or  until  the 
scan  limit  value  equals  zero.  The  character  string  so  delimited  is  then 
used  as  input  to  the  conversion  routine. 

Upon  return,  register  15  will  equal  zero,  register  0 will  contain 
the  converted  number,  and  register  1 will  contain  the  address  of  the 
character  that  terminated  the  scan.  If  during  the  scan  or  conversion  it 
is  determined  that  the  string  is  less  than  1 character  or  greater  than 
15  characters  in  length,  or  the  resultant  value  is  larger  than 
2,147,483,647,  return  will  be  made  with  register  15  equal  to  4,  8,  or 
12  respective'/ . 

Convert  to  character  converts  a binary  value  to  an  EBCDIC  character 
string  equivalent.  Upon  return,  general  register  1 points  to  a '+'  or 

followed  by  a string  of  digits  equivalent  to  the  (input)  binary  value. 
General  register  0 contains  a count  of  the  number  of  digits  in  the  string. 
Nonsignificant  zeroes  are  edited  out  except  when  the  input  value  is  0. 

In  such  a case,  register  1 will  point  to  '+0'  and  register  0 will  equal  1. 


[label] 


#C0NVRT 


[data-address] ,T0-BIN  | 
[data-register] ,T0-CHA 


, limit  I 

Ar)  1 


address 

is  the  address  in  main  storage  of  the  data  to  be  converted.  If 
this  argument  is  omitted,  general  purpose  register  1 is  assumed 
to  contain  the  address. 


register 

specifies  the  general  purpose  register  that  contains  the  number  to 
be  converted.  If  this  argument  is  omitted,  register  0 is  assumed 
to  contain  the  number. 


TO-BIN 


convert  from  character  to  binary 


TO-CHA 


convert  from  binary  to  character 


limit 


specifies  a number  equal  to  or  less  than  4095  (or  a register,  r, 
which  contains  a number)  to  limit  the  scan.  If  omitted,  a limit 
of  4095  is  assumed.  If  the  limit  is  contained  in  a register,  the 
register,  upon  return,  will  be  reduced  by  an  amount  equal  to  the 
number  of  bytes  scanned. 


Registers  Altered;  0,  1,  14,  15 
External  References:  CNVTOOO  or  CNVTOlO 
Written  by:  J.  Garneau 


#COUNT  --  Accumulate  Statistics 


The  #COUNT  routine  is  used  to  add,  subtract,  or  load  data  into  a 
series  of  full  word  counters.  Upon  return  from  a #C0UNT,  register 
15  will  contain  a number  equivalent  to  the  current  value  of  the 
specified  counter. 


LOAD)  ( 1 

[label ] 

#C0UMT 

counter-char 

9 ‘ 

>={value-char } 

add  j 1 (r)  j 

label 


specifies  the  address  of  the  first  executable  instruction  generated 
by  the  macro. 


counter-char 

code  a number  from  1 to  255  to  specify  the  counter  to  be  affected. 

If  a counter  does  not  exist  that  can  be  associated  with  this  number, 
a special  counter  (counter  0)  will  be  assumed. 

I LOAD)_(value-char\ 

(add  )=(  (r)  I 

code  a number  from  1 to  4095  or  replace  r with  a register  that  has 
previously  been  loaded  with  a number  (+2'31).  The  number 
is  loaded  into  the  specified  counter  or  is  added  to  the  current 
value  of  the  specified  counter  depending  on  which  keyword  is  coded. 
If  both  these  keywords  are  omitted,  the  specified  counter  will  be 
incremented  by  one  (1). 


Registers  Altered:  1,  14,  15 

External  References:  ICOUNT  or  ICOUNTl  or  IC0UMT2  or  CNTXCTL 
Written  by:  J.  Garneau 
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#DELETE 


#DELETE  --  Delete  Transient  Module 


The  ^DELETE  macro  provides  a facility  whereby  a task  can  delete  a 
module  that  had  previously  been  loaded  with  a #L0AD  macro. 


label 

The  address  of  the  first  executable  instruction  generated  by  the 
macro. 


#DEQ 


#DEQ  --  Release  Resource  From  Exclusion  Control 


The  #DEQ  macro  enables  a task  to  release  a resource  that  it  has 
exclusive  control  of. 


[label  ] 


#DEQ 


[RQE=address] 


label 

The  address  of  the  first  executable  instruction  generated  by  the 
macro. 

RQE=address 

The  address  of  the  RQE  that  was  specified  in  the  #ENG  macro 
instruction  issued  to  gain  control  of  the  specified  resource. 

If  omitted,  register  1 is  assumed  to  contain  the  address  of 
the  RQE. 


Registers  Altered;  1,  14,  15 
External  References;  ENQCTRL 
Written  by;  J.  Garneau 
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#ENQ 


#ENQ  --  Request  Exclusive  Control  of  Resource 


The  #ENQ  macro  provides  a facility  whereby  a task  may  request 
exclusive  control  of  a resource. 


(address] 

[label] 

mQ 

[NAME=| 'char'  | ][,ECB=address][RQE=address][,WAIT=address] 

The  address  of  the  first  executable  instruction  generated  by  the 
macro. 


(address 
NAME=i 'char' 


The  address  of  a 4-byte  character  string  (padded  with  blanks  if 
necessary)  or  a 1-  to  4-byte  character  string  enclosed  in  single 
quotes.  If  omitted,  the  character  string  is  assumed  to  have  been 
stored  in  bytes  4-8  of  the  RQE. 


ECB=address 


The  address  of  the  ECB  to  be  posted  complete  when  exclusive  control 
of  the  resource  is  acquired.  If  omitted,  the  ECB  address  is  assumed 
to  have  been  stored  in  bytes  8-12  of  the  RQE. 


RQE=address 


The  address  of  the  Resource  Queue  Element  used  to  process  the  #ENQ 
request.  The  RQE  must  be  at  least  three  words  long.  If  omitted. 
Register  1 is  assumed  to  contain  the  address  of  the  RQE. 


WAIT=address 


The  address  of  the  ECBLIST  that  contains  the  address  of  the  ECB 
that  will  be  posted  when  the  task  gains  exclusive  control  of  the 


requested  resource.  If  omitted,  no  automatic  wait  is  generated 
within  the  #ENQ  macro.  It  is  possible  for  the  task  to  #WAIT  on 
this  list  at  any  latter  point  so  long  as  the  integrity  of  the 
RQE  is  honored. 


Registers  Altered:  0,  1,  14,  15 
External  References;  ENQCTRL 
Written  by:  J.  Garneau 


#FINDZVT 


#FINDZVT  — Locate  the  Zeus  Vector  Table 


The  #FINDZVT  macro  returns  to  the  caller  with  the  address  of  the 
ZVT  (Zeus  Vector  Table)  in  register  15. 


[label] 


#FINDZVT 


label 


specifies  the  address  of  first  executable  instruction  generated  by 
the  macro. 


Registers  Altered:  0,  1,  14,  15 
External  References:  ZEUSSVC 
Written  by:  J.  Garneau 
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#FREEMEM  — Free  Main  Memory 


The  #FREEMEM  macro  provides  a means  for  freeing  main  memory  | 

previously  acquired  via  a #GETMEM  macro.  ^ 

1 

/ 


[label] 


#FREEMEM 


[address] 


i 

^ ■ 


l-abel 


The  address  of  the  first  executable  instruction  generated  by  the 
macro. 


f 


I 


address 


The  address  of  the  memory  segment  to  be  freed.  The  memory  segment  | 
must  have  previously  been  allocated  with  a #GETMEM  macro.  If  ! 
omitted.  Register  1 is  assumed  to  contain  the  memory  segment  address. 


Registers  Altered:  1,  14,  15 
External  References:  FREEMEM 
Written  by:  J.  Garneau 


J 


7 
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IGENSECT 


#GENSECT  — Generate  DSECT/CSECT 


The  GENSECT  macro  provides  a means  of  generating  DSECTS  (or  CSECTS) 
which  map  Zeus  blocks  and  tables. 


#GENSECT 


type  [,BASE=register]  [,RESOLVE=#CALL] 


type 


code  LCB  to  generate  a Line  Control  Block  DSECT,  TCB  to  generate  a 
Task  Control  Block  DSECT,  ZVT  to  generate  a Zeus  Vector  Table  DSECT, 
or  DSKREC  to  generate  a Text  File  Header  DSECT.  In  each  case  the 
name  of  the  DSECT  will  be  its  type  (e.g.,  LCB  DSECT). 


BASE=register 

code  any  register  notation  valid  in  a 'USING'  instruction.  If 
omitted,  no  base  register  will  be  assigned  to  the  DSECT  generated. 


RESOLVE=#CALL 

code  in  a ZVT  generation  request  to  cause  the  addresses  of  routines 
referenced  by  a #CALL  macro  to  be  obtained  from  the  ZVT.  If  the 
parameter  is  coded,  a valid  base  register  must  be  assigned  ^ 
maintained  throughout  the  module,  since  all  Zeus  macros  that  gener- 
ate requests  to  subroutines  do  so  via  (internal)  #CALL  macros. 


Note: 


Only  one  DSECT  of  each  type  may  be  generated  during  any  assembly. 

If  more  than  one  of  a type  is  coded,  its  expansion  will  be  bypassed 
and  a message  issued.  Base  register  reassignment  will  be  executed, 
however,  if  the  'BASE=...'  parameter  is  coded. 


Written  by:  J.  Garneau 


86 


#GETMEM 


IGETMEM  — Allocate  Main  Memory 


The  IGETMEM  macro  is  used  to  dynamically  allocate  main  memory. 
Memory  is  allocated  on  a "first  come,  first  served"  basis  for  all 
contending  tasks  in  the  system.  If  memory  is  not  immediately  avail- 
able, the  requesting  task  can  wait  for  it  to  become  available.  The 
address  of  the  memory  segment  allocated  is  returned  in  register  1. 


(addressl 

[label] 

IGETMEM 

{(r)  1 [CQE=address]  [,WAIT=address]  [,ECB=address] 

Ichar  ) 

label 


The  address  of  the  first  executable  instruction  generated  by  the 
macro. 


address’ 

(r) 


char 


The  amount  of  main  memory  requested,  in  bytes.  Code  one  of  the 
following; 

(ll  The  address  of  a word  that  contains  the  amount  required. 

(2)  A register  enclosed  in  parentheses  that  contains  the 
amount  required. 

(3)  A numeric  character  string  equaling  the  amount  required. 


CQE=address 

The  address  of  the  Core  Queue  Element  associated  with  the  request. 
If  omitted,  and  memory  is  not  immediately  available,  the  request 
will  not  be  queued. 


WAIT=address 

The  address  of  the  ECBLIST  that  contains  the  address  of  the  ECB 
that  will  be  posted  when  memory  becomes  available.  If  omitted. 
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no  automatic  wait  is  generated.^  It  is  possible  for  the  task  to 
wait  at  a later  point  so  long  as  the  integrity  of  the  CQE  is 
honored. 


i 


ECB^address 

The  address  of  the  ECB  to  be  posted  when  memory  becomes  available. 
If  omitted,  the  address  of  the  ECB  is  assumed  to  have  been  stored 
in  bytes  8-12  of  the  CQE. 


Registers  Altered:  0,  1,  14,  15 
External  References:  GETMEM 
Written  by:  Jean  Garneau 


^Upon  return  from  a #GETMEM  without  the  'WAIT'  option,  register  15 
will  equal  zero  if  the  memory  requested  was  available.  Register  1 
will  contain  the  address  of  the  requested  segment.  If  memory  is  not 
available,  register  15  f zero.  If  a CQE  was  available  and  memory 
was  not  available,  the  request  was  queued.  When  the  memory  becomes 
available,  the  ECB  addressed  by  the  CQE  will  be  posted  complete  and 
the  address  of  the  memory  segment  will  be  stored  in  the  rightmost 
three  bytes  of  the  ECB. 


88 


#GOTO 


#GOTO  — Executive  Conditional  Branch 

The  #G0T0  macro  instruction  is  used  to  alter  the  instruction 
execution  flow  based  on  the  evaluation  of  an  expression. 


[label] 


#G0T0 


address [ , ( express i on) ] [ ,RET=regi ster] 


label 


The  address  of  the  first  executable  instruction  generated  by  the 
macro. 


address 

The  address  of  the  instruction  to  be  branched  to  if  the  expression 
is  evaluated  to  be  true. 


expression 

The  expression  to  be  evaluated  to  determine  if  the  branch  will  take 
place.  The  expression  has  one  basic  form  as  follows: 

(operand  A,  operator,  operand  B) 

Operands  appear  exactly  as  they  would  in  standard  assembler  com- 
parison instructions  except  for  the  following: 

(1)  Decimal  operation  (i.e.  CP)  is  not  supported. 

(2)  If  the  content  of  a register  is  to  be  evaluated  the 
register  must  be  enclosed  in  parentheses. 

(3)  Literals  are  not  indicated  by  a preceding  equal  (=)  sign 
except  when  the  literal  is  an  'A'  type  address  constant 
(e.g.,  =A(X)). 

(4)  A register  may  be  evaluated  against  zero  by  coding  a 
single  0 as  the  righthand  operand. 

(5)  Bits  within  a byte  may  be  evaluated  by  coding  one  or  more 
bit  numbers  separated  by  commas  and  enclosed  within 
parentheses.  Bits  are  numbered  within  a byte  left  to 
right  1 through  8. 
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operator 


Code  one  of  the  following 

EQ  equal 

GE  greater  than  or  equal 

LE  less  than  or  equal 

LT  less  than 

GT  greater  than 

Bit-on  Equal  if  specified  bit(s)  on 

Bit-off  Equal  if  specified  bit(s)  off 

Bit-any  Equal  if  any  bit(s)  specified  on 


Examples 

Expression 

(A.  GT,  B) 

(A(6),  GE.  B) 

(B(3),  LT,  C 'CAT') 

(5(10,7),  EQ,  IOC  'A') 

((5),  EQ  (4)) 

((5),  LE,  H '500') 
or 

((5),  LE.  F '500') 

((P4),  eq.  0) 

(A,  Bit-on,  2) 

(A+6,  Bit-off,  (1,  4,  5)) 

(0(R2),  Bit-any,  (1.2, 3,4)) 

If  the  expression  is  omitted. 


Is  true  if 
A greater  than  B. 

First  6 bytes  of  A greater  than  or 
equal  to  first  6 bytes  of  B. 

First  3 bytes  of  B less  than  string 
'CAT' 

Ten  bytes  addressed  +5  from  register 
7 equal  'A's. 

Register  5 equals  register  4. 

Register  5 is  less  than  or  equal  to 
500. 

Register  4 is  equal  to  zero. 

Bit  2 of  byte  addressed  by  A is  on 

Bits  1,  4,  and  5 of  byte  addressed 
by  A+6  are  off. 

Any  one  or  all  of  bits  1 through  4 
as  addressed  by  register  2 are  on. 

the  branch  is  made  unconditionally. 


RET=register 

The  register  to  be  used  as  a return  register  in  a 'BAL'  instruction. 
If  omitted,  register  14  is  assumed.  A 'BAL'  instruction  is  generated 
only  if  the  expression  is  omitted  and  two  or  more  addresses  are 
coded.  Addresses  must  be  separated  by  commas  with  the  entire  list 
enclosed  in  parentheses.  A single  'BAL'  can  be  generated  by  coding 
the  second  address  as  an  asterisk. 


Examples: 


#GOTO  A unconditional  branch  to  A 

#G0T0  (A,*)  'BAL'  to  A,  R14  = return  register 

#G0T0  (A,*),RET=3  'BAL'  to  A,  R3  = return  register 

#G0T0  (A.B.C)  'BAL'  to  A,  then  B,  then  C, 

R14  = return  register 


Registers  Altered:  See  'RET='  parameter. 
I '•  Written  by:  Jean  Garneau 
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#LOAD 


ROAD  --  Load  Transient  Module 


The  ROAD  macro  provides  a facility  whereby  a task  may  request  that 
a nonresident  module  be  made  available  for  use.  If  a copy  of  the 
module  is  currently  available  in  main  memory  It  will  be  used,  other- 
wise the  module  will  be  loaded  from  an  external  storage  device.  The 
address  of  the  module  is  returned  in  register  15.  If  register  15 
equals  0,  the  module  was  not  found  or  could  not  be  loaded  because 
of  I/O  problems. 


[label] 


#L0AD 


(address)  ^ 

EP=rchar'  | |^,LRB=address  [,ECB=address][,WAIT=address]J 


label 

The  address  of  the  first  executable  instruction  generated  by  the 
macro . 

PP_ (address! 

■"^"rchar'  ) 

The  address  of  an  8-byte  character  string  (padded  with  blanks  if 
necessary)  or  a 1-  to  8-byte  character  string  enclosed  in  single 
quotes  that  identifies  the  module  to  be  loaded. 


LRB=address 

The  address  of  the  Load  Request  Block  used  to  process  the  #L0AD 
request.  The  LRB  must  be  (at  least)  three  words  long. 


WAIT=address 

The  address  of  the  ECBLIST  that  contains  the  address  of  the  ECB 
that  will  be  posted  complete  when  the  loaded  module  is  made 
available  to  the  task. 

If  the  WAIT  keyword  is  omitted,  no  automatic  wait  is  generated 
within  the  ROAD  macro.  However,  the  task  may  issue  a standard 
#WAIT  at  any  later  point  so  long  as  the  integrity  of  the  LRB 
is  honored.  In  this  case,  upon  return  from  the  #L0AD,  register 
15  is  negative  if  the  request  was  successful  (i.e.,  LRB  was 
added  to  Load  Request  Queue),  and  zero  if  the  request  failed 
(i.e.,  module  could  not  be  located  in  library). 
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ECB-address 

The  address  of  the  ECB  to  be  posted  complete  when  the  module  becomes 
available  to  this  task.  If  omitted,  and  the  WAIT  keyword  is  coded, 
the  ECB  address  is  assumed  to  have  been  stored  in  bytes  8 through 
12  of  the  LRB. 


Registers  Altered:  0,  1,  14,  15 
External  References:  LDROOOO 
Written  by:  W.  Underhill 


• I 


f 


#LPSW 

#LPSW  — Load  Program  Status  Word 

The  #LPSW  macro  will  change  the  state  of  a program  from  supervisor 
to  problem  or  from  problem  to  supervisor,  setting  protect  keys  as 
. required.  . - 


label 

specifies  the  label  of  the  first  executable  instruction  generated 
by  the  macro. 

state 

code  SUPV  to  load  a supervisor  state  psw  or  PROB  to  load  a problem 
state  psw. 


The  address  of  a byte  in  main  storage,  or  a register,  in  which  the 
protect  key  from  the  TCB  can  be  stored  after  a change  to  Supervisor 
state  or  fetched  from  during  the  change  to  problem  state. 


Registers  Altered:  0,  1,  14,  15,  also  see  'KEY='  parameter 
External  References:  ZEUSSVC 
Written  by:  J.  Garneau 
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#MOVE 


< 

♦ t 


u.  #MOVE  — Move  Data 


The  #M0VE  macro  allows  data  segments  from  1 to  32,767  bytes  to  be 
moved,  supports  execution  time  length  generation,  and  provides 
automatic  EBCDIC  to  Hexadecimal  conversion.  Register  1,  upon  return 
from  a #M0VE,  will  point  to  the  last  Input  character  moved  +1.  CPU 
cycles  and  memory  are  optimized  for  each  macro  expansion. 


[label] 


#M0VE 


[TO=address]  [,FROM=address] 


TRNSLAT= 


TO=address 

The  address  In  main  storage  where  the  data  will  be  moved.  This 
address  can  take  any  format  acceptable  within  the  first  operand 
of  a 'MVC  Instruction  with  the  following  additions: 

(1|  any  length  from  1 to  32,767  Is  valid 
(2)  the  length  may  be  loaded  Into  a register  and  that  register 
specified  In  the  TO  address  length  field,  e.g.  T0=  0((4),5) 

If  this  parameter  Is  omitted,  register  1 Is  assumed  to  contain  the 
address  and  register  14  the  length. 


FROM=address 

The  address  In  main  storage  from  where  the  data  are  to  be  moved. 
This  address  can  take  any  format  acceptable  within  the  second 
operand  of  a 'MVC  Instruction.  If  omitted,  register  0 Is  assumed 
to  contain  the  from  address. 


TRNSLAT»jf|£j 

If  EBC  Is  specified,  or  If  the  parameter  Is  omitted,  data  are  moved 
unmodified.  If  HEX  is  specified,  each  input  data  byte  is  converted 
to  2 output  "HEX"  bytes,  that  is,  the  actual  number  of  Input  data 
bytes  moved  Is  one-half  the  number  of  characters  specified  as  the 
move  length. 


Registers  Altered:  0,  1,  14,  15 
External  References:  MOVEOOO  or  MOVEOlO 
Written  by:  Jean  Garneau 

96 


\ 


ize  for  Execution. 


egisters*  assigns  base  registers, 
save  areas. 


[label]  #0PENP  [register]  ^.TYPE=j||^j[,EXTEND=val-char][,TCB=register] 


label 


Specifies  the  name  to  be  assigned  to  the  CSECT  statement  generated 
by  the  #0PENP  macro.  If  omitted,  the  label  'MAIN'  is  assumed.  The 
inclusion  of  any  CSECT  statement(s)  prior  to  the  #0PENP  overrides 
the  generation  of  the  CSECT  within  the  #0PENP. 


register 


Specifies  the  one  or  more  registers  (if  more  than  one  they  must  be 
separated  by  commas  and  the  entire  list  enclosed  in  parentheses) 
that  will  become  the  program  base  registers.  Registers  are  loaded 
and  assigned,  one  by  one,  to  contiguous  4095-byte  segments  of  the 
program.  If  the  parameter  is  omitted  and  the  #0PENP  is  the  first 
in  the  program,  register  12  is  assumed.  If  the  parameter  is  omitted 
and  the  #0PENP  is  not  the  first  in  the  program,  no  attempt  to 
reassign  a base  register  will  be  made;  however  all  remaining  para- 
meters will  be  assembled  normally. 


- IREUSI 
'“IRENTI 


Specifies  dynamic  or  static  save  area  generation.  If  'RENT'  is 
coded,  the  save  area  will  be  acquired  at  execution  time  out  of 
available  storage  within  the  partition  or  region  assigned  to  the 
program.  If  'REUS'  is  coded  or  the  parameter  is  omitted,  an  in- 
line save  area  will  be  generated.  In  either  case,  the  address  of 
the  save  area  is  loaded  into  register  13  and  the  save  area  is  set 
to  zeros  (x'OO'). 


EXTEND=val-char 

Specifies  the  number  of  words  that  the  save  area  will  be  extended. 
The  address  of  the  first  byte  of  the  first  word  of  the  extended 
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area  is  72  (decimal)  plus  the  contents  of  register  13.  If  this 
parameter  is  omitted,  the  standard  OS  18-word  save  area  is 
generated. 


TCB*register 

Code  a register  that  contains  the  address  of  a Zeus  TCB.  If  this 
parameter  is  selected  and  TYPE=RENT  is  coded,  the  save  area  that 
is  acquired  will  be  obt^Tned  via  a #GETMEM  Zeus  macro  (if  memory 
is  not  available  it  will  be  waited  for);  if  omitted,  an  OS  GETMAIN 
will  be  executed. 


External  References:  GETSAVE  if  TCB=r  and  TYPE=RENT  are  coded 
Written  by:  J.  Garneau 
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#QFB  " Generate  Queue  Foundation  Block 


The  #QFB  macro  provides  a facility  for  describing  and  generating  a 
queue  foundation  block. 


[label]  #QFB  [QTYPE={option,[. . .option])][,EXTEND=val-char] 


label 


The  label  of  the  first  byte  of  the  first  word  of  the  QFB  generated 
within  the  macro. 


QTYPE=option 


Select  one  from  each  stack  or  as  required: 


ORDEREDC-ASCENDING] 

lORDERED-DESCENDING 


EXTEND=val-char 


A numeric  value  from  1-4095  that  defines  the  number  of  words  the 
QFB  should  be  extended.  The  extended  area  begins  at  offset  8 bytes 
from  the  first  byte  of  the  QFB.  If  omitted,  the  QFB  is  not  extended. 


Written  by:  J.  Garneau 


iPQUE  — Process  Queue 


iWJE 


The  IQUE  macro  provides  a facility  whereby  a routine  may  manipulate 
a queue.  The  queue  must  have  been  originally  defined  with  a #QFB 
macro.  . 


[label] 


IQUE 


f ADD , ELEMENT= ( addres  s [ , opti on ] ) 

0 


DELETE 

LOCATE 


ELEMENT 


ID= 


* {address} [.option]] 


label 

The  label  of  the  first  executable  instruction  generated  by  the 
macro. 


ad6 


add  element  to  queue. 


LOCATE 

locate  element  and  return  its  address  in  register  1.  If  element 
cannot  be  located,  register  1 will  equal  0 when  control  is  returned. 


DELETE 

locate  and  delete  specified  element.  If  the  element  is  deleted, 
register  1 will  contain  the  address  of  the  element;  otherwise 
register  1 will  equal  0. 


ELEHENT=j,jj^„ 


The  address  of  the  element  to  be  ADDed,  DELETEd,  or  LOCATEd.  If  0 
is  coded,  either  the  absolute  top  or  absolute  bottom  element  on 
the  queue  will  be  affected  (see  option  parameter). 


100 


The  address  of  a 4-byte  field  (padded  with  blanks  if  necessary)  or 
a 1-  to  4-byte  character  string  enclosed  in  single  quotes  which 
identifies  the  element  to  be  deleted  or  located.  The  identifier  is 
maintained  in  bytes  4-7  of  the  element  and  consists  of  any  bit 
I combination  from  X'OOOOOOOO'  to  X'FFFFFFFF.' 


option 

As  subparameter  of  ELEMENT  parameter  only: 

Code  TOP  or  BOTTOM  to  ADD/DELETE/LOCATE  either  the  absolute 
top  (first)  or  bottom  (last)  element  on  the  queue  (see 
"ELEMENT"  parameter).  If  omitted,  the  request  is  processed 
as  specified  by  the  QFB  options  field. 

As  subparameter  of  ^ parameter  only: 

Code  TOP  or  BOTTOM  to  ADD/ DELETE/ LOCATE  either  the  top  (first) 
or  bottom  (last)  element  on  the  queue  with  the  specified  ID. 
Code  LT  (less  than),  GT  (greater  than),  or  GE  (greater  than 
or  equal)  to  ADD/ DELETE/ LOCATE  an  element  relative  to  some 
other  element  currently  on  the  queue.  If  omitted,  the  request 
is  processed  as  specified  by  the  QFB  options  field. 


The  address  of  the  Queue  Foundation  Block  associated  with  this 
queue.  If  omitted,  register  0 is  assumed  to  contain  the  QFB  address. 


Registers  Altered:  0,  1,  14,  15 
External  References:  QUEMGR 
Written  by:  Jean  Garneau 


#REGS  — Register  Symbol  Generation 


The  #REGS  macro  provides  automatic  generation  register  symbols 


#REGS  [char][,PREFIX=char] 


Code  a number  representing  a register  to  be  equated,  or  two 
numbers  separated  by  commas  and  enclosed  in  parentheses  represent- 
ing a range  of  registers  to  be  equated.  If  omitted,  registers  0-15 
will  be  equated. 


PREFIX=char 


Code  one  to  six  characters  to  specify  the  prefix  to  be  assigned  to 
each  register  selected.  If  omitted,  the  prefix  "R"  will  be  assumed. 
Checking  to  protect  against  generation  of  duplicate  symbols  will  be 
performed  only  if  the  prefix  "R"  is  either  chosen  or  defaulted. 


Written  by:  Jean  Garneau 


#SET 


#SET  — Set  Bit  Status 


The  #SET  macro  instruction  is  used  to  alter  the  status  of  one  or 
more  bits  within  a byte. 


(ON  \ 

( ) 

[label] 

#SET 

byte-address, BIT-|0FF| 

(bit-char)  J 

ilNV) 

[all  ) 

byte-address 

is  the  address  in  main  storage  of  the  byte  that  is  to  be  altered. 

BIT- 


is  the  type  of  operation  to  be  performed  where: 

ON  - turns  specified  bit(s)  on 

OFF  - turns  specified  bit(s)  off 

INV  - Inverts  status  of  specified  bit(s) 


bit-char 

is  a single  bit  number,  or  several  bit  numbers  separated  by  commas 
and  enclosed  in  parentheses.  Bits  are  numbered  within  the  byte, 
left  to  right,  1 to  8. 


ALL 


can  be  specified  if  all  eight  bits  are  to  be  affected.  This  parameter 
can  be  used  in  lieu  of  a specific  request  for  each  of  the  eight  bits, 
for  example,  ALL  instead  of  (1,  2,  3,  4,  5,  6,  7,  8). 


Written  by:  J.  Garneau 
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#STIMER 


#STIMER  — Set  Interval  Timer 


The  #STIMER  macro  allows  a task  to  set  one  or  more  interval  timers. 
The  task  can  wait  for  the  specified  interval  to  elapse  or  can  con- 
tinue processing.  When  the  interval  expires,  the  task  can  have 
either  an  ECB  posted  or  can  request  that  an  exit  routine  be 
scheduled. 


[label] 

#STIMER 

SEC=char [ ,TQE=address  ] 

(,WAIT=address  [ ,ECB=address]l 

l,EXIT=address  )J 

label 


The  address  of  the  first  executable  instruction  generated  by  the 
macro. 


SEC=char 

Code  a numeric  character  string  with  0,  1,  or  2 decimal  places  to 
specify  the  clock  interval  in  seconds,  tenths,  and  hundreds. 


TQE=address 

The  address  in  main  memory  of  the  Timer  Queue  Element  associated 
with  this  request.  If  omitted,  register  1 is  assumed  to  contain 
the  TQE  address. 


WAIT=address 

The  address  in  main  memory  of  an  ECBLIST.  The  ECBLIST  must  contain 
the  address  of  the  ECB  that  will  be  posted  when  the  interval  expires. 
If  omitted  no  automatic  wait  is  generated  by  the  macro.  It  is  possible 
however,  for  the  task  to  wait  at  any  later  point  so  long  as  the 
integrity  of  the  TQE  is  honored. 


ECB=address 

The  address  of  the  ECB  to  be  posted  complete  when  the  interval  expires 
If  omitted,  the  ECB  address  is  assumed  to  have  been  stored  in  bytes 
8 through  12  of  the  TQE  with  the  sign  bit  off. 


EXIT=address 

The  address  of  a routine  to  be  executed  when  the  interval  expires. 
Upon  entry  to  the  Exit  Routine,  register  1 will  point  to  the 
originating  TQE.  Words  4 to  n of  this  TQE  can  be  used  to  pass 
information  to  the  exit  routine.  The  exit  routine  is  executed 
asynchronously  with  the  task  which  requested  the  original  interval. 
Any  synchronization  required  between  the  requesting  task  and  the 
exit  task  must  be  handled  by  the  tasks  themselves. 


Registers  Altered:  0,  1,  14,  15 
External  References:  ITIMER 
Written  by:  J.  Garneau 
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#TTIMER 


! 

■ 


i. 


#TTIMER  — Test  Zeus  Interval  Timer 


The  #TTIMER  macro  is  used  to  test,  cancel  or  force  completion  of 
an  interval  timer  previously  set  by  a #STIMER  macro. 


[label] 


#TTIMER 


[type][,TQE=address] 


label 


specifies  the  address  of  the  first  executable  instruction  generated 
by  the  macro. 

type 

code  one  of  the  following: 

REMAINING 

COMPLETE 

CANCEL 


Return  time  remaining  this  interval  (in  hundreds  of 
seconds)  in  the  second  word  of  the  specified  TQE. 
This  is  default  type  if  parameter  omitted. 

Force  ECB  referenced  by  specified  TQE  to  be  posted 
complete  and  cause  TQE  to  be  removed  from  timer 
queue. 

Cause  TQE  to  be  removed  from  timer  queue  (ECB  not 
posted) . 


F 


TQE=address 


The  address  in  main  memory  of  the  TQE  (Timer  Queue  Element)  associated 
with  the  request.  If  omitted,  register  1 is  assumed  to  contain  the  TQE 
address . 


Registers  Altered:  0,  1,  14,  15 
External  References;  ITIMER 
Written  by:  J.  Garneau 


#WAIT 


#WAIT  --  Wait  for  Event  Completion 


The  #WAIT  macro  instruction  allows  a task  to  wait  for  the  completion 
of  one  or  more  events.  The  event  may  be  resource  availability,  I/O, 
timer  interval  completion,  memory  availability,  task  synchronization, 
and  so  forth.  Upon  return  from  a #WAIT  register  0 contains  the 
address  of  the  ECB  posted  complete  and  register  15  contains  its 
offset  in  the  LIST  (i.e.,  ECB=1 , R15=0;  ECB=3,  R15=8). 


[label] 


miT 


jecblist-address 
(ECBLIST=ecblist-address 


I ,EPADDR=entry-address 


label 


specifies  the  address  of  the  first  executable  instruction  generated 
by  the  macro. 


ecblist-address 

ECBLIST=ecblist-address 


specifies  the  address  in  main  memory  of  the  ecblist  that  contains 
the  addresses  of  one  or  more  ECB's  to  be  waited  on.  Each  ECB 
address  is  4 bytes  in  length.  The  last  ECB  address  must  have  bit 
0 (i*e.  X'80')  on.  If  omitted,  register  1 is  assumed  to  contain 
the  ecblist  address. 


EPADDR=entry-address 

The  address  in  main  memory  of  a word  which  contains  the  Dispatcher 
address.  If  the  Dispatcher  address  has  previously  been  loaded  into 
a register,  this  parameter  may  be  coded  (r)  where  r is  the  register 
so  loaded.  If  the  parameter  is  omitted,  a V-type  address  constant 
for  the  entry  point  of  the  Dispatcher. 


Registers  Altered;  0,  1,  14,  15 
External  References:  DSPTCHR 
Written  by:  J.  Garneau 
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#ZEUSSVC 


#ZEUSSVC  — Execute  Zeus  SVC 


The  #ZEUSSVC  macro  executes  an  SVC  instruction  which  is  stored  in  a 
"remote"  CSECT.  (The  purpose  of  this  is  to  allow  the  Zeus  SVC  to  be 
changed  with  a single  assembly  and  a relink-edit  of  Zeus.)  Upon 
return,  register  15  will  contain  the  address  of  the  Zeus  incore 
address  table  and  register  0 the  address  of  the  partition  or  region 
TCB. 


[label] 


#ZEUSSVC 


label 


specifies  the  address  of  the  first  executable  instruction  generated 
by  the  macro. 


Registers  Altered:  0,  1,  5 
External  References:  ZEUSSVC 
Written  by:  J.  Garneau 
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Chapter  3 

SYSTEM  DATA  AREAS 


The  operation  of  Zeus  requires  that  certain  control  blocks  and  queue  elements  be 
created  and  maintained.  Table  2 contains  a list  of  these  areas,  a brief  description  of  each, 
and  their  primary  use. 

Table  2 


LCB;  Line  Control  Block 

TQE:  Timer  Queue  Element 
CQE:  Core  Queue  Element 
TCB:  Terminal  Control  Block 
ZVT:  Zeus  Vector  Table 

QFB:  Queue  Foundation  Block 
LRB:  Load  Request  Block 


Control  Blocks 


Control  I/O  activity  on  a TP  Line  or 
local  channel 

Support  a Zeus  interval  timer 
Support  conditioned  memory  request 
Control  I/O  activity  on  a terminal  device 
Cross  reference  address  table  for  main 
Zeus  components 
Anchor  for  each  queue 
Support  transient  module  load  function 


Number  Required 
1 per  device  type  per  line 

unlimited 
unlimited 
1 per  device 
1 per  Zeus 

unlimited 

unlimited 


A description  of  each  Control  Block  and  Queue  Element  is  presented  in  this  Chapter, 
organized  alphabetically  within  two  sections— Section  1,  Control  Blocks  and  Tables  and 
Section  2,  Queue  Elements. 


SECTION  1:  CONTROL  BLOCKS  AND  TABLES 

Descriptions  of  the  Zeus  Line  Control  Block  (LCB),  Queue  Foundation  Block 
(QFB),  Terminal  Control  Block  (TCB),  and  Vector  Table  (ZVT)  are  provided  in  this 
section.  For  each,  an  overview  is  presented  first,  followed  by  a detailed  description. 


LINE  CONTROL  BLOCK 

The  Line  Control  Block  (LCB)  is  used  by  the  Line  Task  to  control  I/O  on  a remote 
or  local  communication  channel.  More  than  one  LCB  may  be  assigned  to  a given  channel. 
However,  I/O  on  LCBs  assigned  to  separate  channels  is  asynchronous  while  I/O  on  LCBs 
assigned  to  the  same  channel  is  synchronous. 

Synchronization  of  multiple  LCBs  on  a single  channel  is  accomplished  by  a.ssigning 
the  channel  exclusively  to  each  LCB  in  turn.  The  *ENQ/«DEQ  Zeus  macros  are  used  for 
this  purpose. 


Line  Control  Block— Overview 


DECTYPE 


DECONLTT 


DECSDECB 


last  op.  DECLNGTH 


DECDCBAD 


DECAREA 


DECSENSO 

DECSENS1 

DECCOUNT 

DECCMCOD 

DECENTRY 

DECFLAGS 

DECRLN 

DECRESPN 

DECTPCOD 

DECERRST 

DECCSWST 

DECADRPT 


DECPOLPT 


LDECBA 


LTCBC 

LTCBA 

LPOLS 

LLISTA 

LPOLLC 


LADDRC 


LCBFLGS 


LCBNEXT 


mnii 


Line  Control  Block— Detailed  Description 

Bytes  and 

Offset  Alignment  Field  Name 


Field  Description,  Contents,  Meaning 


DECB 

DECSDECB 

DECTYPE 


0(0) 
0(0) 
4(4) 
5(5) 
6(6) 
8(8) 
8(8) 
12(C) 
16(10) 
17(11) 
18(12) 
20(14) 
20(14) 
24(18) 
25(19) 
26(1  A) 
28(10 
29(1  D) 
30(1  E) 
32(20) 
36(24) 
40(28) 
41(29) 
44(20 
44(20 
48(30) 
48(30) 
52(34) 
54(36) 
56(38) 


Event  control  block 
Type  field 
Last  operation 
Length 

Reserved  for  on-line  test 
DCB  address 
Area  address 
First  sense  byte 
Second  sense  byte 
Residual  count 
Command  code 
Terminal  list  address 
Status  flags 
Relative  line  number 
Response  field 
TP  op  code 
Error  status 
CSW  status 

Address  of  current  addressing  entry 

Address  of  current  polling  entry 

Reserved  for  DSPTCHR 

DECB  address 

Count  of  this  line's  TCBs 

Address  of  first  TCB  on  this  line's  queue 

Polling  list  control  byte  save  area 

Line  polling  list  address 

Number  of  active  entries  in  polling  list 

Number  of  writes  pending 


DECLNGTH 

DECONLTT 

DECDCBAD 

DECAREA 

DECSENSO 

DECSENS1 

DECCOUNT 

DECCMCOD 

DECENTRY 

DECFLAGS 

DECRLN 

DECRESPN 

DECTPCOD 

DECERRST 

DECCSWST 

DECADRPT 

DECPOLPT 

LDECBA 


LTCBC 

LTCBA 

LPOLS 

LLISTA 

LPOLLC 

LADDRC 

LCBFLGS 


interval 

Write 

Memory  wait 

Address  of  next  LCB  on  queue 
Line  timer  queue  clement 
Line  core  queue  element 
LCB  length 


LCB  NEXT 
LTQE 
LCQE 
LLTH 


56(38) 

60(30 

60(30 

72(48) 


QUEUE  FOUNDATION  BLOCK 


The  head  pointer  to  each  queue  is  located  in  a Queue  Foundation  Block.  The  Queue 
Foundation  Block  is  used  as  an  anchor  for  all  Zeus  Queues.  For  example,  the  timer 
queue,  the  memory  queue,  and  the  load  request  queue  are  all  anchored  with  their  own 
QFBs. 

Queue  Foundation  Block— Overview 

Offset 

0(0) 

4(4) 

8(8) 


Word 


STATUS 

First  element  address 

TYPE 

Last  element  address 

Optional  Extended  Area 

Queue  Foundation  Block— Detailed  Description 


Bytes  and 

Offset  Alignment  Field  Name  Field  Description,  Contents,  Meaning 


0(0) 

1(1) 

4(4) 


5(5) 

8(8) 


1 

. 3 
1 


. 3 
Any 


TYPE 

. 1 

. . 1 

. . . 1 . . . . 
. . . . 1 . . . 

1 . . 

X XX 

Data 


Status  bytes  ■ null  queue 
Address  of  first  element  in  queue 

Ascending  queue 
Descending  queue 
Last  in/first  out  ■ LIFO 
First  in/first  out  - FIFO 
Count 
Reserved 

Address  of  last  element  in  queue 
Optional  extended  data  area 


i 


TCBIDENT 


TCBCOUNT 


L 

TCBECB 


TPIOECB 


BUFSIZE 


LINEREM 


POSREM 


RBLOKADR 


RELBLOCK 


TCBRJE 


SBUF1L 


SBUF2L 


REQDCB 


ACHAINSA 


SBUFIA 


SBUF2A 


PAGELINE 


PAGEND 


unusnd 


ALCB 


ATAENTRY 


ARQDECB 


Zeus  Terminal  Control  Block-Detailed  Description 


b-  ,1 


i 

i 


Offset 

Bytes  and 
Alignment 

Field  Name 

0(0) 

3 

TCBIDENT 

3(3) 

...  1 

X'E3C3C2' 

TCBCOUNT 

4(4) 

4 

TCBECB 

8(81 

4 

TPIOECB 

12(C) 

4 

BUFSIZE 

16(10) 

4 

F'1048' 

LINEREM 

20(14) 

4 

POSREM 

24(18) 

4 

RBLOKADR 

28(10 

4 

RELBLOCK 

32(20) 

4 

TCBRJE 

36(24) 

4 

SBUF1L 

40(28) 

4 

SUBF2L 

44(20 

4 

REQDCB 

48(30) 

4 

ACHAINSA 

52(34) 

4 

SBUF1A 

56(38) 

4 

SBUF2A 

60(30 

4 

PAGELINE 

64(40) 

4 

PAGEND 

68(44) 

4 

72(48) 

4 

ALCB 

76(40 

4 

ATAENTRY 

80(50) 

4 

ARQDECB 

84(54) 

4 

ARQIOA 

88(58) 

4 

92(50 

4 

TC8NEXT 

96(60) 

4 

TPIOECBL 

1 

1 

100(64) 

. 3 

4 

TCBECBL 

1 

1 

104(68) 

. 3 

4 

NTPDECBL 

1 

1 

. 3 

Field  Description,  Contents,  Meaning 
Characters  'TCB'  to  identify  control  block 

TCB's  number 

ECB  for  CPU  synchronization 

ECB  for  terminal  I/O 

Buffer  size  for  terminal  READ  operation 

Unused  lines  remaining  in  terminal  output  buffer 
Unused  characters  remaining  in  terminal  output 
buffer 

Address  in  page  where  miscellaneous  system 
messages  are  to  be  stored 

Relative  block  number  of  text  to  be  retrieved  from 

or  stored  on  direct  access  storage  device 

Used  by  RJE  subsystem 

Length  of  buffer  one 

Length  of  buffer  two 

Address  of  DCB  associated  with  current  request  for 

text  storage  or  retrieval  this  TCB 

Address  of  initial  save  area  in  chain  currently  attached 

to  this  TCB 

Address  of  buffer  one 

Address  of  buffer  two 

Next  available  position  in  terminal  output  buffer 
Last  position  in  terminal  output  buffer 
unused 

Hress  of  Zeus  Line  Control  Block 
Address  of  terminal  addressing  entry 
Address  of  requestor  DECB  for  this  terminal 
Address  of  requestor  I/O  area 
unused 

Address  of  next  TCB 


Address  (list)  of  ECB  for  terminal  I/O 

Address  (list)  of  CPU  synchronization  ECB  (TCB) 

Address  (list)  of  non-IP  DECB  for  I/O 
(Continued)  
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Zeus  Terminal  Control  Block— Detailed  Description  (Continued) 


\ i 


L. 


Bytes  and 

Offset 

Alignment 

Field  Name 

Field  Description,  Contents,  Meaning 

108(60 

4 

DECBDA 

Event  control  block 

1 

...  1 .... 

Type  field 

. 1 

. 1 . . 1 . . . 

Type  field 

. . 2 

Length 

4 

DCB  address 

4 

Area  address 

4 

lOB  address 

4 

Key  address 

4 

Block  reference  address 

140(88) 

1 

GLOSBLK 

Relative  position  on  terminal  for  glossary 

‘ROLL’  request 

. 3 

unused 

2 

unused 

146(8E) 

. . 1 

PAGECB 

Page  control  byte 

1 

Page  contains  valid  data 

.1 

Prefix  processing  completed 

. . 1 

Suffix  processing  completed 

...  1 .... 

Processing  complete 

....  1 . . . 

CUR  requested 

1 . . 

ROL  requested 

1 . 

DEL  requested 

1 

MOD  requested 

147(8F) 

...  1 

PAGECB2 

Page  control  byte  extension 

1 

COP  requested 

.1 

CRE  requested 

. . 1 

DIS  requested 

...  1 .... 

RES  requested 

....  1 . . . 

LIS  requested 

1 . . 

LOC  requested 

1 . 

cursor  reset  required 

1 

commands  will  be  executed 

148(90) 

8 

USERNME 

User  name 

156(98) 

2 

USERID 

User  identification 

158(9A) 

. . 2 

unused 

160(90 

2 

unused 

162(9E) 

. . 1 

CMID 

C'C  command  id 

163(9F) 

...  1 

0100  0000 

Space 

164(A0) 

4 

AQWORK 

Address  of  work  space  currently  available 

168(A4) 

1 

LSTAT 

Line  status  byte 

1 

TCB  processing  READ  request 

.1 

TCB  processing  WRITE  request 

. . X 

reserved 

...  1 .... 

TCB  waiting  for  terminal  output 

....  1 . . . 

TCB  waiting  for  terminal  input 

X . . 

reserved 

1 . 

Terminal  logged  on 

1 

RJE  function  in  process 

(Continued) 
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Zeus  Vector  Table— Detailed  Description 


I 


i 


! 

i 

! 


i 


t ' 


Offset 

Bytes  and 
Alignment 

Field  Name 

0(0) 

4 

ZDSPTCHR 

4(4) 

4 

ZM  ASTER 

8(8) 

4 

ZITIMER 

12(C) 

4 

RJE0100 

16(10) 

4 

TCBQ 

20(14) 

4 

ZLCBQ 

24(18) 

4 

ZCOREQ 

28(10 

4 

ZTIMERQ 

32(20) 

4 

36(24) 

4 

ATE 

40(28) 

4 

ETA 

44(20 

4 

TPDCB 

48(30) 

4 

ZNTPDCBT 

52(34) 

4 

ZWTROO 

56(38) 

4 

ZLINEIO 

60(30 

4 

ZTERMIO 

64(40) 

4 

LTE 

68(44) 

4 

ETL 

72(48) 

4 

ZCTLTAB 

76(40 

4 

ZMOVE 

80(50) 

4 

ZMSCHD 

84(54) 

4 

ZCHTB 

88(58) 

4 

ZCTB 

92(50 

4 

ZCMNDPCI 

96(60) 

4 

ZCMNDPC2 

100(64) 

4 

ZGETSAVE 

104(68) 

4 

ZGETCORE 

108(60 

4 

ZFREECOR 

112(70) 

8 

120(78) 

4 

ZQUEMGR 

124(70 

4 

ZRCVRMGT 

128(80) 

4 

ZRESET 

132(84) 

4 

ZRTERM 

136(88) 

4 

ZSCAN 

140(80 

4 

ZSTACK 

144(90) 

4 

ZSTATUS 

148(94) 

4 

ZPOOLA 

1 

1 

. 3 


Field  Description,  Contents,  Meaning 

Address  of  dispatch  subroutine 
Address  of  ZEUS  command  interface 
Address  of  interval  timer  task 
Address  of  reader/interpreter  task 
Address  of  first  TCB  on  queue 
Address  of  first  LCB  on  queue 
Address  of  first  CQE  on  queue 
Address  of  first  TQE  on  queue 
unused 

Address  of  ASC1 1 to  EBCDIC  translate  table 

Address  of  EBCDIC  to  ASC1 1 translate  table 

Address  of  TP  DCB 

Address  of  non-TP  DCB  table 

Address  of  writer  task 

Address  of  line  I/O  task 

Address  of  terminal  I/O  task 

Address  of  line  code  to  EBCDIC  translate  table 

Address  of  EBCDIC  to  line  code  translate  table 

Address  of  ASC1 1 control  character  table 

Address  of  move  subroutine 

Address  of  master  schedule  subroutine 

Address  of  convert  hex  to  binary  subroutine 

Address  of  convert  to  binary  subroutine 

Address  of  command  processing  subroutine-part  1 

Address  of  command  processing  subroutine-part  2 

Address  of  GETSAVE  subroutine 

Address  of  GETCORE  subroutine 

Address  of  FREECORE  subroutine 

unused 

Address  of  QUEMGR  subroutine 

Address  of  recovery  management  task 

Address  of  output  buffer  allocation  subroutine 

Address  of  terminal  I/O  interface  subroutine 

Address  of  SCAN  subroutine 

Address  of  STACK  subroutine 

Address  of  STATUS  subroutine 

No  subpool 

Address  of  Zeus  subpool 


I Continued) 
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Zeus  Vector  Table— Detailed  Description  (Continued) 


Offset 

6ytes  and 
Alignment 

Field  Name 

Field  Oescription,  Contents,  Meaning 

152(98) 

4 

ZLOR0100 

Address  of  transient  routine  loader  task 

156(90 

4 

ZLOROOOO 

Address  of  transient  routine  queue  manager 

160(A0) 

4 

ZENQCTRL 

Address  of  ENQ/OEQ  processor 

164(A4) 

4 

reserved 

168(A8) 

4 

ZCNTXCTL 

Count  subroutine  ‘XCTL’  control 

172(AC) 

4 

ZMOVEX 

Address  of  character  to  hex  move  subroutine 

176(80) 

4 

ZRITQE 

Address  of  reader -interpreter  QF8 

180(84) 

4 

ZGCOUNT 

Address  of  routine  to  format  and  dump 

184(88) 

4 

ZLOR0200 

Address  of  transient  table  dump  routine 

188(80 

4 

ZSUPV 

Address  of  supervisor  state  routine 

192(C0) 

4 

ZPR06 

Address  of  problem  state  routine 

196(C4) 

4 

ZMOVEOOO 

Address  of  move  routine 

200(C8) 

4 

ZMOVEOIO 

Address  of  movex  routine 

204(00 

4 

ZWTERM 

Address  of  TP  output  interface  routine 

208(00) 

4 

ZCRTREAO 

Address  of  real  terminal  routine 

212(04) 

4 

ZNTPIO 

Address  of  non-TP  I/O  routine 

216(08) 

4 

ZEMPTY 

Address  of  TP  output  buffer  empty  routine 

220(00 

4 

ZFULL 

Address  of  TP  output  buffer  full  routine 

224(E0) 

4 

INITO 

Address  of  ZEUS  first  level  initialization  routine 

228(E4) 

2 

ZVTL 

Length  of  ZVT 

SECTION  2:  QUEUE  ELEMENTS 

Descriptions  of  the  Zeus  Core  Queue  Element  (CQE),  Load  Request  Element  (LRE), 
Resource  Queue  Element  (RQE),  and  Timer  Queue  Element  (TQE)  are  presented  in  this 
section. 


CORE  QUEUE  ELEMENT 

The  Core  Queue  Element  (CQE)  is  used,  in  conjunction  with  a conditional  memory 
request,  to  queue  a request  for  more  main  memory  than  is  currently  available. 

Core  Queue  Element— Overview 

Offset 
0(0) 

4(4) 

8(8) 


121 


•Word 


Status 

Link 

Reserved 

Size  of  Request 

ECB  Address 

'i 


Core  Queue  Element-Detailed  Description 


Offset 

Bytes  and 
Alignment 

Field  Name 

0(0) 

1 

Status 

. 3 

1 

.XXX  xxxx 
Link 

4(4) 

1 

XXXX  xxxx 

. 3 

size 

8(8) 

4 

Pose 

Field  Description,  Contents,  Meaning 

Last  entry  on  Queue 
Reserved 

Address  of  next  CQE  on  core  request  queue. 

If  last  CQE  on  queue  link  will  address  previous 
CQE. 

Reserved 

Amount  of  memory  required  to  satisfy  this  request 
Address  of  ECB  which  is  to  be  posted  complete 
when  enough  core  becomes  available  to  satisfy  the 
request.  When  the  ECB  is  posted  complete  the 
address  of  the  core  element  obtained  will  be 
stored  in  its  rightmost  three  bytes.  The  CQE  is 
then  removed  from  the  Core  Queue. 


LOAD  REQUEST  ELEMENT 

The  Load  Request  Element  (LRE)  is  used  to  process  a load  request  for  a transient 
module  that  is  not  currently  in  main  memory. 

Load  Request  Element-Overview 

Offset 

0(0) 

4(4) 

8(0) 


Load  Request  Element-Detailed  Description 


Word 


Status 

Link 

Table  Entry  address 

ECB  address 

Bytes  and 

Field  Description,  C'.ontent,  Meaning 

Offset 

Alignment 

Field  Name 

0(0) 

1 

Status 

1 

.XXX  xxxx 

Last  Entry  on  Queun 

Reserved 

. 3 

Link 

Address  of  next  LRt-  on  Load  Request  Queue. 

If  last  LRQ  on  queue  link  will  address  previous  CQE 

4(4) 

4 

Table 

Address  of  table  entry  for  module  to  be  loaded 

4(4) 

4 

Post 

Address  of  ECB  to  be  ,oosted  when  module  becomes 
available 

RESOURCE  QUEUE  ELEMENT 


The  Resource  Queue  Element  is  used  to  synchronize  accessing  of  system  resources. 

Resource  Queue  Element— Overview 


Resource  Queue  Element— Detailed  Description 


Offset 

Bytes  arKi 
Alignment 

Field  Name 

Field  Description,  Content,  Meaning 

0(0) 

1 

Status 

1 

.XXX  XXXX 

Last  Entry  on  Queue 

Reserved 

. 3 

Link 

Address  of  next  ROE  on  Resource  Queue 

If  last  entry  on  queue,  link  points  to  previous  entry 

4(4) 

4 

RName 

Resource  name--any  four  characters,  X'OO'  thru 
X'FF',  may  be  used.  If  the  name  is  less  than 

4 characters,  it  must  be  kept  adjusted  and  padded 
with  blanks 

8(8) 

4 

Post 

Address  of  Event  Control  Block 

TIMER  QUEUE  ELEMENT 

The  Timer  Queue  Element  (TQE)  is  used  to  create  and  maintain  an  interval  timer. 

Timer  Queue  Element— Overview 

Offset  Word 


Timer  Queue  Element— Detailed  Description 


Offset 

Bytes  and 
Alignment 

Field  Name 

Field  Description,  Content,  Meaning 

0(0) 

1 

Status 

1 

.XXX  XXXX 

Last  Entry  on  Queue 

Reserved 

. 3 

Link 

Address  of  next  TOE  on  Timer  Queue.  If  last 
element  on  the  Timer  Queue  address  of  previous  TQE. 

4(4) 

4 

Time 

Remaining  interval  this  element  at  time  of  last  Timer 
Queue  'post'.  If  this  TQE  is  the  first  on  the  queue, 
then  this  interval  was  used  to  set  the  last  'real'  clock. 

8(8) 

1 

Post 

1 

0 

.XXX  XXXX 

Exit  address  in  rwxt  3 bytes 

ECB  address  in  next  3 bytes 

Reserved  bits 

8(8) 

1 3 

When  the  TQE  interval  is  reduced  to  zero,  the  TQE 
is  removed  from  the  queue.  Depending  upon  FLGS 
either  routine  is  scheduled.  This  field  contains  either 
the  exit  address  or  the  ECB  pointer. 

Chapter  4 

UTILITY  PROGRAMS 


This  chapter  describes  the  programs  necessary  to  implement,  operate  and  maintain 
the  Zeus  system.  A summary  of  the  programs  contained  in  this  chapter  is  presented 
below. 

Fimction 

Format  key  file 
Add  records  to  key  file 
Replace  records  in  key  file 
Format  text  files 

Add  modules  to  transient  routines  file 
Format  Remote  Job  Entry  file 
Copy  one  or  more  files 
Update  a partitioned  data  set 
Print/punch  utility 


p. 

f;'  i 


Program  Name 

BLDIFLEl 
BLDIFLE2 
BLDIFLE3 
BLDXFILE 
BLDTFILE 
BLDRFILE 
IMACOPY 
I IMAPDSMD 

IMAPTPCH 


NAME: 


BLDIFLEl 


FUNCTION:  To  format  a direct  access  file  for  input  of  the  glossary 

records 

INPUT:  None 

OUTPUT:  A disk  file  of  1200  dumny  records  formatted  for  40-byte 

keys 

PROCESS:  The  output  file  is  opened. 

1200  dumtny  records  are  written. 

The  file  is  closed. 

MACROS  USED:  #REGS,  #0PENP,  #CL0SEP 

ROUTINES 

CALLED:  None 

SIZE  IN 

BYTES:  434  bytes 

EXTERNAL 

REFERENCES:  None 

EXIT:  To  address  in  R14 

D.  Shuford 


WRITTEN  BY: 


w-Twwi-  > IK-  1 1 ■ ■>  V ^ 


NAME: 


BLDIFLE2 


f ■ • 

L i 

}:'i 


fl 

ii' 

p • 


FUNCTION: 

INPUT: 


OUTPUT: 


PROCESS: 


MACROS 

USED: 

ROUTINES 

CALLED: 


To  add  records  to  the  glossary  (IFILE) 

A card  file  containing  the  QFILE  record  numbers  of  the 
records  to  be  transferred  to  the  IFILE; 

The  QFILE 

A printed  listing  of  keys  and  relative  record  numbers 
of  records  added  to  the  IFILE.  Both  the  derived  and 
actual  record  numbers  are  listed. 

A disk  file  organized  with  40-byte  keys  and  800-byte 
data  records. 

A punched  or  printed  error  file  containing  error  messages 
and  images  of  the  input  card  records  that  caused  the 
errors . 

The  input  card  file  is  read  to  determine  which  QFILE  record 
is  to  be  added  to  the  IFILE.  The  QFILE  record  is  read.  The 
first  line  of  the  record,  up  to  the  delimiting  period, 
carriage  return  characters,  or  the  first  40  bytes  is  used 
as  input  to  SCANKEY  which  removes  spaces  and  special  char- 
acters to  and  from  the  key  and  derives  an  IFILE  relative 
record  number  for  the  record  to  be  added.  The  record  and 
key  are  written  in  the  IFILE.  The  printed  listing  giving 
key  and  actual  and  derived  relative  locations  is  written. 
Any  errors  cause  an  error  message  to  be  written  along  with 
the  card  record  that  caused  the  error. 


#0PENP,  #REGS,  #CL0SEP 
SCANKEY,  CTB 


SIZE  IN  BYTES:  3,294  bytes 
EXTERNAL 

REFERENCES:  SCANKEY,  CTB 


EXIT:  To  address  in  R14 


WRITTEN  BY:  D.  Shuford 
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NAME: 


BLDIFLE3 


FUNCTION: 

INPUT: 

OUTPUT: 

PROCESS: 


F 

To  update  the  IFILE.  | 

A card  file  containing  relative  record  numbers  of 
QFILE  records  to  be  transferred  to  the  IFILE. 

The  QFILE. 

The  IFILE.  F 

The  updated  IFILE. 

A printed  listing  of  IFILE  records  added  or  replaced. 

A printed  or  punched  error  file. 

The  files  are  opened.  The  card  file  is  read  to  obtain 

the  relative  record  number  of  the  QFILE  record  that  is 

to  be  transferred.  The  first  40  bytes  or  the  characters  j 

up  to  the  delimiter,  period-carriage  return,  of  the  | 

QFILE  records  are  used  as  input  to  SCANKEY,  which 

removes  space  and  special  characters  to  form  the  record 

key  and  derives  a relative  record  number  for  the  IFILE 

record. 

The  IFILE  is  read.  If  no  record  with  the  key  being  used 

is  found,  the  QFILE  record  is  written  in  the  IFILE.  If  a 

record  is  found  in  the  IFILE,  with  the  key  being  used  in 

the  search,  this  record  is  checked  to  determine  if  it  is 

"active."  If  so,  an  error  message  is  written.  If  not,  ] 

the  QFILE  record  is  written  in  place  of  the  inactive  j 

IFILE  record.  A printed  listing  is  written  giving  the  ] 

keys  and  actual  and  derived  relative  record  number  of  all 

records  written  in  the  IFILE. 

An  error  file  is  produced  for  records  that  could  not  be  p 

written.  A record  may  not  be  written  because  it  was  to  il 

replace  an  "active"  record  or  because  there  was  no 

room  within  the  specified  search  limits.  ti 


MACROS  USED:  #0PENP,  #REGS,  #CL0SEP 
ROUTINES 

CALLED:  SCANKEY 

SIZE  IN 

BYTES:  3,718  bytes 

EXTERNAL 

REFERENCES:  SCANKEY 

EXIT:  To  address  in  R14 

WRITTEN  BY:  D.  Shuford 
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NAME: 

FUNCTION: 

INPUT: 

OUTPUT: 

PROCESS: 


MACROS 

USED: 

ROUTINES 

CALLED: 

SIZE  IN 
BYTES: 

EXTERNAL 

REFERENCES: 

EXIT: 

WRITTEN  BY: 


BLDXFILE 

To  allocate  space  for  the  D,  F,  and  Q files. 

R1  PARM  field 

A direct  access  file  containing  the  number  of  records 
specified  in  the  PARM  field  and  of  the  size  specified 
in  the  DCB  BLKSIZE  field  on  the  DD  card;  a print  file 
containing  error  messages. 

The  files  are  opened.  The  parm  field  is  examined  to  see 
if  the  number  of  records  has  been  specified.  If  not,  an 
error  message  is  printed  and  processing  stops.  If  a 
number  of  records  exceeding  the  maximum  32-bit  binary 
number  (2,147,483,647)  is  specified,  an  error  message 
is  pointed  and  processing  stops.  If  a valid  number  of 
records  is  specified,  this  number  of  records  is  written. 
The  records  are  formatted  with  the  first  100  bytes  set 
to  zero  and  the  remainder--up  to  1,028  bytes— set  to 
spaces.  If  errors  occur  while  writing  a record,  an  error 
message  is  printed  and  processing  continues.  When  the 
last  record  is  written,  the  files  are  closed  and  process- 
ing ceases. 


#REGS,  #0PENP,  #CL0SEP 


None 


1 ,964  bytes 


None 

To  address  in  R14 
D.  Shuford 


NAME: 

FUNCTION: 

INPUT: 

OUTPUT: 

PROCESS: 


ZEUS  MACROS 
USED: 

ROUTINES 

CALLED: 

SIZE  IN  BYTES: 

EXTERNAL 

REFERENCES: 

EXIT: 

WRITTEN  BY: 


BLDTFILE 

^ • 

To  load  Zeus  transient  routines  in  executable  form  into 
partitioned  data  set. 

R1  Parm  field  for  name  of  load  modu-le  Linkage  Editor 
output  (SYSLMOD). 

The  specified  transient  routine  loaded  into  IMPl.TFILE. 

The  parm  field  is  checked.  If  no  name  has  been  specified, 
or  if  a name  exceeding  eight  characters  is  specified,  an 
appropriate  error  message  is  printed  and  processing  is 
discontinued.  If  a name  with  a valid  length  is  specified, 
it  is  saved.  The  files  are  opened  (if  either  file  fails 
to  open,  an  error  message  is  printed  and  processing  is 
discontinued).  A BLDL  instruction  is  issued  for  the  input 
data  set.  The  results  are  checked  to  make  sure  that  the 
module  in  question  does  exist  in  executable  form. 

If  not,  the  appropriate  error  message  is  printed  and 
processing  is  discontinued.  If  so,  the  size  is  checked. 

If  the  size  is  eight  bytes  or  7,000  bytes,  an  error 
message  is  printed  and  processing  discontinues.  If  the 
size  is  valid,  the  module  is  loaded  and  written  into 
IMPl.TLOAD. 

The  PDS  directory  is  updated  to  reflect  the  addition  of 
the  member  with  a STOW  instruction.  If  an  error  occurs, 
the  appropriate  message  is  printed  and  processing  dis- 
continues. If  there  is  no  error  the  files  are  closed,  a 
message  indicating  that  the  module  has  been  successfully 
placed  in  the  PDS  is  printed  and  processing  discontinues. 


#CL0SEP,  #0PENP,  #G0T0,  #REGS 


None 

1 ,330  bytes 


None 

To  address  in  R14 
W.  Underhill 


NAME: 

BLDRFILE 

L FUNCTION: 

To  build  the  RFILE 

, INPUT: 

Parm  field  data  to  specify  file  size 

‘ ■ OUTPUT: 

RFILE  containing  the  specified  number  of  1,124-byte 
records.  Records  0 and  1 are  special  records  for  use 
by  the  RJE  functions  of  Zeus. 

PROCESS: 

The  parm  field  is  checked.  If  it  is  missing  an  error 
message  is  printed  and  processing  ceases.  If  the  file 
size  is  <8  or  if  (file  size  -8)/8  is  >1,020  an  error 
message  is  printed  and  processing  ceases.  If  a valid 
file  size  is  specified,  records  0 and  1 are  formatted 
and  written.  The  remainder  of  the  file  is  written  with 
records  formatted  with  zeroes.  A message  is  printed, 
upon  completion,  saying  that  the  file  has  been  formatted 
and  giving  the  record  number  of  the  last  record.  Process- 
ing ceases. 

ZEUS  MACROS 
USED: 

N/A--program  written  in  PL/1 

ROUTINES 

CALLED: 

WTP 

SIZE  IN 

BYTES: 

1 ,048  bytes 

EXTERNAL 

REFERENCES: 

WTP 

EXIT: 

To  System  . 

WRITTEN  BY: 

W.  Underhill 

J 


NAME: 


IMACOPY 


FUNCTION: 

To  copy  any  data  set 

INPUT: 

Data  set(s)  to  be  copied— up  to  10 

OUTPUT: 

Copied  data  set(s) 

PROCESS: 

The  input  data  set  is  copied  to  the  output  data  set. 
The  process  is  repeated  for  each  input  and  output  data 
set  specified. 

ZEUS  MACROS 
USED: 

#0PENP,  #CL0SEP 

ROUTINES 

CALLED: 

None 

SIZE  IN 

BYTES: 

946  bytes 

EXTERNAL 

REFERENCES: 

IMACOPY 

EXIT: 

To  address  in  R14 

WRITTEN  BY: 

Jean  A.  Garneau 
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NAME: 

FUNCTION: 

INPUT: 

OUTPUT: 

PROCESS: 


ZEUS  MACROS 
USED: 

ROUTINES 

CALLED: 

SIZE  IN 
BYTES: 

EXTERNAL 

REFERENCES: 

EXIT: 

WRIHEN  BY: 


IMAPDSMD 

To  add/replace/ delete  members  of  a partitioned  data  set 
(PDS). 

Parameter  card  Indicating  what  operation  Is  to  be  per- 
formed; member  to  be  added  or  replaced. 

Modified  PDS. 

The  parameter  card  Is  read  and  Interpreted  to  determine 
what  operation  Is  to  be  performed;  the  name  of  the 
member;  whether  to  print  the  entire  Input  data;  whether 
an  Identification  Is  to  start  In  location  73  and  If  so 
what  it  is;  and  what  the  Increment  for  sequencing  Is  to 
be.  The  specified  PDS  Is  then  modified  as  Indicated. 


#REGS,  #0PENP,  BSECT,  RET,  CLOSER 


None 


3,937  bytes 


None 

To  address  in  R14 
Jean  A.  Garneau 


NAME: 

FUNCTION: 

INPUT: 

OUTPUT: 

PROCESS: 


ZEUS  MACROS 
USED: 

ROUTINES 

CALLED: 

SIZE  IN 
BYTES: 

EXTERNAL 

REFERENCES: 

EXIT: 


IMAPTPCH 

Utility  for  printing  or  punching  sequential  data  sets. 

Sequential  data  set.  FARM  field  Indicating  operation  to  . 
be  performed.  _ 

Printed  or  punched  data  set. 

The  PARM  field  Is  Interrogated  to  determine  which  opera- 
tion Is  to  be  performed;  at  which  record  In  the  data  set 
the  operation  Is  to  begin;  whether  any  subsequent  records 
are  to  be  skipped;  whether  the  entire  operation  Is  to  be 
repeated,  and  If  so  for  how  many  times;  whether  sequence 
numbers  are  to  be  placed  1n  the  output  record  (If  punched) 
and  If  so,  what  the  Initial  value  and  the  Increment  are 
to  be;  whether  printed  output  Is  to  be  spaced,  and  If  so 
how  many  blank  lines  (0  to  3)  are  to  be  between  records; 
whether  conversion  to  hexadecimal  or  to  EBCDIC  Is  to  be 
made.  The  specified  operations  are  performed  and  the 
output  data  set  written. 


#RE6S,  #0PENP,  #G0T0,  #BITS,  #BSECT,  #RET,  #CL0SEP 


CTB,  MOVEX,  MOVE 


3,176  bytes 


CTB,  MOVEX.  MOVE.  lECTTRNS,  IMAPTPCH 
Address  In  R14 


WRITTEN  BY: 


Jean  A.  Garneau 


1. 


Chapter  5‘ 

PROCEDURES 


This  chapter  lists  all  the  Job  Control  Language  (JCL)  procedures  required  to  support 
the  Zeus  system.  A summary  of  the  procedures,  along  with  a brief  description  of  them,  is 
presented  in  the  following  list: 


Member  Name 

Description 

#ASMFC 

Assemble  and  store  object  module  in  Zeus  library 

#ASMFCG 

Assemble  and  Go 

#ASMFCL 

Assemble  and  Linkedit 

#ASMFCZ 

Assemble  and  store  object  code  in  Zeus  object 
code  file 

#ASMFCLG 

Assemble,  link,  and  go 

#ASMFCLT 

Assemble,  linkedit,  and  store  executable  module 
in  Zeus  Transient  Routine  file 

MOVE 

Mode  data  set 

COMPRESS 

Compress  a partitioned  data  set 

PDSMOD 

Modify  a partitioned  data  set 

RDRZ 

Zeus  reader 

RGET 

Extract  data  set  off-line  from  RJE  file 

RPUT 

Add  data  set  off-line  to  RJE  file 

UT 

Print/Punch  file 

ZEUS 

Zeus  procedure 

ZOLD 

Zeus  Job  (Old  Zeus) 

ZREG 

Zeus  Job  (Regular  Zeus) 

ZTEST 

Zeus  Job  (New  Zeus) 
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MEMBER  NAME  AASMFC 
//  PROC  NAME-TEMP 

//ASM  EXEC..  PGM»lEUASM«PARM«*N00ECK«L0A0tN0KREF*»TlME«20 
//SVSLIB  00  OSN«lMPl.ZMACROtOISP«SHR 
//  00  OSN-SYSl.MACLIBfOlSP-SHR 

//SVSPRINT  00  SYS0UT«At0CB«fLRECL»t21tRECFM«FBM»BLKSIZE-363*BUFN0«5l 
//SYSUTl  00  SPACE«CCYLt(3t3nfUNIT«f  SYSDAtSEP-SYSPRlNTI 
//SYSUT2  00  SPACE- ICYL *(3,311 vUNIT-i SYSOA,SEP- ( SYSPRl NT* SYSUTl ) ) 
//SYSUT3  00  SPACE-(CYL*(3*3I l*UNIT-(SYSOA* 

//  SEP-(SYSUT2,SYSUn*SYSLIB)l 

//SYSGO  00  01SP-0L0*0SN-SYS1. GARNI CNAME) 

r'l 


; ;» 
f 


MEMBER  NAME  AASMFCG 

//ASM  EXEC  PGM-1EUASM*PARM-'N00ECK*L0A0', TIME-10 

//SYSPRl NT  00  SYS0UT-A*0CB-(LRECL«121*RECFH-FBN,BLKSIZE-363,BUFN0-9I 

//SYSLIB  00  0SNAME-IMP1.ZMACRQ,0ISP-SHR 

//  00  0SNANE-SYS1.MACLIB*0ISP-SHR 

//SYSUTl  00  SPACE-(CYL*(3*3n*UNIT-(SYS0A*SEP«SYSPRINT) 

//SYSUT2  00  SPACE-(CYL*(3*3) )*UNIT-(SYS0A*SEP-(SYSPR1NT*SYSUT1)I 
/7SYSUT3  00  UNIT-I  SYS0A*SEP-(SYSUT2*SYSUTl,SYSL(Bn* 

//  SPACE-(CYL*(3*4I) 

//SYSGO  00  UNIT-SYSOA*OSNAME«CLOAOSET*SPACE-(CYL,( 1*1I»*0ISP-(N00* 

//  PASS) 

//GO  EXEC  PGM«L0A0ER,C0N0«(8*LT,ASM) 

//SYSLIB  00  0SNAME«HUM1.SUBRTLIB,0ISP-SHR 

//  00  0SN-INP1.SUBRTLIB,0ISP-SHR 

//SYSLIN  00  CSNAME«*.ASM.SYSGO,OISP-(OLO*PASS) 

//  00  OONAME-SYSOIN 

//SYSLOUT  00  SYSOUT-A 

//SYSPRINT  DO  SYSOUT-A 

//SYSUDUMP  DO  SYSOUT-A 


i: 


i 

1 

I 

! 

i 

1 

! 


1 

1 


i 

I 


MEMBER  NAME  fASMFCL 

//ASM  EXEC  P6N-lEUA$M,PARM«*LOAO»NOOECR'»riME«10 

//SVSPRINT  Oa.SYSOUT-A,OCB-ILRECL*121 tRECFM>PBM»BLRSlZE«)63.BUPN0«9) 


//SVSLIB 

00 

0SNAME-IMPl.ZMACRO,01SP«SHR 

It 

00 

0SNANE*SYS1.NACL1B,01SP-SHR 

//SYSUTl 

00  SPACE-ICYLf 13,31 I,UN1T«1SVS0A,SEP«SYSPR1NTI 

//SYSUT2 

00  SPACE«fCYL,l3,3n,UNIT«<SVS0A,SEP«ISYSPRINT,SVSUTl)  1 

//SYSUT3 

00 

UNIT«I SYS0A,SEP«(SYSUT2,SYSUT1,SYSLIBI), 

// 

SPACE«CCYL,f3,A) ) 

//SYSCO 

00 

UNIT-SVSOA,OSNANE«CLOAOSET,SPACE«ICYL, 11,1) ) ,OISP>(MUO, 

// 

PASS) 

//LKEO 

EXEC 

PGM«IEWL,PARM«IXREF,LlST,LET),C0N0«f8,LT,ASM) 

//SYSPRINT  00 

SVS0UT*A,0CB«(LRECL>121 ,RECFM>FBN,BLKS IZE« 363, BUFN0>9) 

//SYSLMOO  00 

OSNANE«&rEMPtPOS),UNIT«SYSOA,SPACE«(CYL,( 1,1,1) ), 

// 

OISP*( MOO, PASS) 

0030000 

//SYSLIB 

00 

OSNAME'^SYSl  .L  INKLIB  ,01  SP«SHR 

// 

00 

0SNAME«HUM1.SUBRTLIB,0ISP«SHR 

// 

00 

0SN«1MP1.SUBRTLIB,0ISP«SHR 

//SYSLIN 

00 

OSNAME«&LOAOSET, 01 SPs ( 0L0,0ELETE ) 

0024000 

// 

00 

OONAME^SYSIN 

0026000 

//SYSUTl 

00 

UNIT*! SYSOA,SEP»(SYSLIN, SYSLMOO) ), 

2 

// 

SPACE*ICYL,(1,1)) 

MEMBER  NAME 
//  PROC 

//ASM  EXEC 
//SYSLIB  DO 
//  DO 

//SVSPRINT  DO 
//SYSUTl  DO 
//SYSUT2  DO 
//SYSUT3  DD 
ft 

//SYSCO  OD 


AASMFCZ 

NAME»TEMP 

PGM» 1EUASN,PARM«'N00ECK* LOAD# XREF* » TIME-20 
OSN=IMPl.ZMACROf OISP^SHR 
DSN^SYSl.MACLIBtOISP^SHR 

SYS0UT=A,0CB=(LRECL»121,RECFH»FBM,BLKSIZE»363,BUFN0*5) 
SPACE=(CYL,I3,3n.UNIT«(SYSDA,SEP«SYSPRINTI 
SPACE=(CYLf(3t3n.UNIT*(  SYSDA,SEP=I  SVSPRINT,  SYSUTl  ») 
SPACE>(CYL,(3,3) ),UNITs(SYSOA, 
SEP=(SYSUT2,SYSUTl,SYSLI8»» 
OISP=>OLD,OSN=IMP1.ZOBJ{&NAME) 


I 


MEMBER  NAME  iASMFCLG 

//ASM  EXEC  PGM«IEUASMtPARM**NOOECK,LOAO*triNE-10 

//SYSPRINT  00  SYS0UT«A,0CB-<LRECL*121,RECFM>FBM.BLKSIZE»963tBUFN0«9l 
//SYSLIB  00  0SNAHE*1MP1.ZMACR0*01SP*SHR 

//  00  OSNAME<SYSl.MACLIBtOISP«SHR 

f //SYSUTl  00  SPACE*(CYLt(3»3)ltUNlT«(SYS0A«SEP>SYSPRINn 

//SYSUT2  00  SPACE«(CYL.I3«3I ltUNIT«(SYSOA»SEP«ISYSPRlNT«SVSUTt}) 
//SYSUT3  00  UNlT-(SYS0A,SEP«ISYSUT2tSVSUTl»SYSLIBnt 
//  SPACE*(CYLt(3«An 

//SYSGO  00  OSNAME«£LOAOSETtUNIT«SYSOAtSPACE«(CYLt( Itll It 

//  OlSP-(MOOtPASS) 

4 //LKEO  EXEC  PGM>lEWLtPARM«(XREFtLETtLlSTItCONO«(8tLTtASNI 

//SYSPRINT  00  SYSOUT»AtOCB»ICRECL»12ltRECFI*»FBM,BLKSIZE»363tBOFNO-«l 
//SYSLMOO  00  OSNAME*&GOSET(GOI.UNIT>SYSOA«SPACE«ICYLtf Itltlllt 
//  OISP«1MOO,PASS) 

//SYSLIB  00  OSNAME«SYSl.LlNKLIBtOISP*SHR 

//  00  0SNANE*HUMl.SUBRTLIBt01SP«SHR 

//  00  OSN>IMPl.SUBRTLIBtOISP«SHR 

//SYSLIN  00  OSNAME-CLOAOSETtOlSP-IOLOtOELETE) 

//  00  OONAME>SYSIN 

//SYSUTl  00  UNIT<( SYSOAtSEP«ISYSLINtSYSLMOOI) , 

//  SPACE-ICYLttl.ll) 

//GO  EXcC  PGM«*. LKEO. SYSLMOO 

//SYSPRINT  00  SYS0U1>A 
//SYSUOUMP  00  SYSOUT»A 


0018000 


0030000 


002A000 

0026000 

20032000 

0038000 


MEMBER  NAME  fASMFCLT 
//  PROC  NAME- TEMP 

//ASM  EXEC  PGM-IEUASNtPARM-INOOECKfLOAOtXREFItTIME-lO 

//SYSPRINT  00  SYSOUT-AtOCB>IRECFM«FBNtLRECL«121tBLKSIZE«363tBUFNO«9l 
//SYSLIB  00  OSN-IMPl.ZMACROtOISP-SHR 

//  00  OSN-SYSl.MACLIBtOlSP-SHR 

//SYSUTl  00  SPACE-ICYL«l3t3ll.UNlT-ISYS0AtSEP«SYSPRINTI 

//SYSUT2  DO  SPACE-ICYLtl3t3))«UNIT«ISYS0AtSEP-ISYSPRINTtSVSUTll I 

//SYSUT3  00  UNlT-(SYS0AtSEP-tSYSUT2tSYSUTl.SYSLIB)lt 

//  SPACE-(CYLtl3»4) I 

//SYSGO  00  OSN-CSLOAOSETtUNIT-SYSOAtSPACE-ICYLtlltlllt 

//  OISP-IMOOtPASS) 

//LKEO  EXEC  PGN-lEWL»PARN«tXREF*LIST.LET)*CONO-(OtNEtASN) 

//SYSPRINT  00  SYS0UT-At0CB-IRECFM-FBMtLRECL-12ItBLKSIZE>363tBUFN0-9l 
//SYSLMOO  00  OSN«&SGOSETUNAME)tUNlT-SYSOAfSPACE«(CYLt(  ItltlDt 
//  OISP-IMOOtPASSI 

//SYSLIB  00  OUMMY 

//SYSLIN  00  OSN«C&LOAOSET«OISP*(OLOtOELETE) 

//SYSUTl  00  UN1T-SYS0A,SPACE-(CYL»I Itin 

//LOAO  EXEC  PGM-TLOAOtPARM«|£NANE)tCONO«fOtNEtASM) 

//STEPLIB  00  OSN-IMPl.OATALIB.UNOERHlLtOlSP-SHR 

//INPUT  00  OSN-££GOSET»01SP-IOLOtOELETEI 


MEMBER  NAME  RORZ 

II  RROC  LIB>MMPl.ZSOURCE'tMBR«ZREG  0000001 
//lEEPROC  EXEC  PGH«IEFIRC«PARM«'8050300400102A907001SYSOA  * 0000002 
//(EFRUER  UO  0SNAME«CL1B.(£MBRI tOISP-SHR  0000003 
//iEFPDSf  00  0SNAME«SYS1.PR0CL1B*0ISP-SHR  0000004 
//lEFOATA  00  UNIT>SYS0AtSPACE>(80t(5tl00ltRI.SEtC0NTIG)t  20000005 
//  OCB>(LRECL«80tBUFNO»2tBLKSlZE>800tRECFN>FB»80FL«800l  0000006 


MEMBER  NAME 

RGET 

//R 

EXEC 

PGM- RGE  TPUT  f P ARM« • OUT  » CLOGON* 

//STEPLIB 

00 

0SN«lMP1.0ATALIB.UN0ERHlLt01SP«SHR 

//SYSPRINT 

00 

SYSOUT«A,OCB-(RECFN>F,BLKS1ZE>1001 

//SYSUOUMP 

00 

SYSOUT-A 

//RFILE 

00 

0SN-lMPl.RFILEt01SP«:SHR 

MEMBER  NAME 

RPUT 

// 

PROC 

LOGON-TEMP 

//K 

EXEC 

PGM-RGETPUTtPARM-' IN.GLOGON* 

//STEPLIB 

00 

DSN-IMPl.OATALIB.UNOERHILtOISP-SHR 

//SYSPRINT 

00 

SYSOUT-AtOCB-lKECFM-F.BLKSIZE-lOO) 

//SYSUOUMP 

00 

SYSOUT-A 

//RFILE 

00 

OSN-IMPl .RFILEtOISP-SHR 

MEHRER  NAME  UT 
//UT  EXEC 

//SY SPRINT  DO 
//SYSPUNCH  00 


PGM=IMAPTPCH 

SYSauT>A»0CB»(LRECL>133»RECFM»FBAtBLKSIZE«399l 

SYS0JT=B,0CB*(LRECL>80tBLKSIZEs240tRECFN«FBI 


t40 


00 

00 

00 

00 

00 

00 

00 


MEMBER  NAME  ZEUS 

//  PROC  PROG»STUOMOOEtLlB«*lMPl.PROGLIB* 

PGM-&PROG  t T 1 ME« 1000 
OISP«SHR.OSN«£LIB 
UN1T«050  720  CRT  LINE  1 

UNIT«051  720  CRT  LINE  2 

UNIT«053  720  CRT  LINE  4 

UNIT-AFF-CRTLO  OUMMY  TP  LINE 
OSNANE«CAI 1.0FlLEV3t0ISP«SHR 
OSNAME-CAI 1 .FFlLEV3tOI SP*SHR 
0SNANE«CAI1.IFILEV1»0ISP«SHR 
OSNAME*CAIl.QFILEV3tOISP«SHR 
//FILER  00  0SN*1MP1.RFILE»0ISP«SHR 
//TFILE  00  OSN>INPl.TFILEtOISP>iSHR 
//SUBRFL  00  0ISP*SHR«0SNaCAI2.SRFILE 
//SVSOlO  00  0SN«CAI1.SVS010»0ISP«SHR 
//SYSOll  00  UNIT*2314.0SN-CA12.SYS011»0ISP«SHR 
00  0SNAME>CAIl.SYS012t0ISP>SHR 
01SP-SHRt0SN>CAI2.SYS020 
01SP«SHR,0SN>CAI2.SYS021 
0ISP«SHR«0SN«CAI2.SYS022 
01SP»SHR,0SN«CAI2.CAIL0A 
//SYSLST  00  SYSOUT»A,UNIT»SYSOUT 
//01050C  00  UNIT«AFF«OUMMY 


//ZEUS  EXEC 
//STEPLIB  00 
//CRTLO  00 
//CRTLI 
//CRTL3 
//OUMMY 
//FILEO 
//FILEF 
//FILEI 
//FILEQ 


//SYS012 
//SYS020  00 
//SYS021  00 
//SYS022 
//LOAFLE 


00 

00 


// 

00 

UNIT* 

AFF«OUHNY 

// 

00 

UNIT* 

AFF*OUMHY 

// 

00 

UNIT* 

AFF*OUMMY 

// 

00 

UNIT*AFF*OUMMY 

// 

00 

UNIT»AFF»OUMMY 

// 

00 

UNIT»AFF»OUMMY 

// 

00 

UNIT*AFF«OUMMY 

// 

00 

UNIT*AFF-OUMMY 

//ZLINEl 

00 

UNIT*AFF*CRTLO 

// 

00 

UNIT*AFF*CRTL1 

// 

00 

UNIT»AFF*CRTL3 

//SYSUOUMP  00  SYSaUT«F»UNlT«SYSOUT 
//RJEFILE  00  OSNANE«IHPl.RJEFILEtOISP«SHR 
//♦ 

//*  THE  FOLLOWING  3 00  CAROS  ARE  REQUIREO  ONLY  IF  THE  ZEUS  WRITER 

//4TASK  IS  TO  BE  MADE  ACTIVE 

//* 

//SYSWTRl  00  OSN-SYSl.POSTFILEtOISP«SHR 
//SYSWTR2  00  0SN«SYS1.WTRSP00L«0ISP«SHR,0CB-RECFM>U 
//SYSWTR3  00  UNIT»00Ef0C8>IRECFM»UMtBLKSIZE«133) 
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MENaER  NAHE  ZOLO 

//IMPONL  JOB  C253A,IMPONLtOlt*OLD  ZEUS* tCLASS>NtNSGLEVEL-l 
//  EXEC  ZEUStPR0G>STU0M00F«PARH«CWV210BJ 
//SYSIN  00  *«0CB«BLKSIZE>80 
( 10, 11,9),( 7, 8,61,14, 5,3 ) ,ALL0CATE«8800 


MEMBER  NAME  ZREG 

//IMPONL  JOB  I2S3A, IMPONL, 01, 'CURRENT  ZEUS* ,CLASS-M,NSGLEVEL«1 
//  EXEC  ZEUS,PARM-CHV210BJ,PRaG«STU0M00E 
//SVSIN  00  *,0CB>BLKSIZE«80 
t 10,I1,9),CT,B,61,I4,5,3I,ALLOCATE«8800 


MEMBER  NAME  ZTEST 

//IMPONL  JOB  I253A, IMPONL, 01, *NEM  ZEUS* ,CL ASS-M,MSGLEVEL«1 
//  EXEC  ZEUS,PROG*TESTMOOE,L1B«*SYS1.GARNEAU*,PARM«CWV210BJ 
//SYSIN  00  *,0CB«BLKSIZE«80 
( 10,11,91,(7,8,61,14,5,31 ,ALL0CATE>8800 


